Найти минимальное среди 4-х чисел, используя функцию нахождения минимального среди двух чисел — Pascal(Паскаль)

Program func4;

Uses crt;

Var
  a, b, c, d, m1, m2: integer;

Function Min(x, y: integer): integer;
begin
  if x < y then
    Min := x
  else
    Min := y;
end;

begin
  ClrScr;
  Writeln('введите 4 числа');
  readln(a, b, c, d);
  m1 := Min(a, b);
  m2 := Min(c, d);
  m1 := Min(m1, m2);
  Writeln('минимум=', Min);
  readln;

End.

Leave a Comment