Напишіть програму мовою програмування Паскаль, яка виводить найменьше з 3х чисел введених...

Question

Напишіть програму мовою програмування Паскаль, яка виводить найменьше з 3х чисел введених з клавіатури *

Answer 1

Ответ:

function Min(a,b: integer):integer;

begin

 if a    Min:=a

 else

   Min:=b

end;

var

 a,b,c: integer;

begin

 ReadLn(a,b,c);

 WriteLn(Min(a,Min(b,c)));

 ReadLn

end.