Question

составить программу вычисляющее наибольшее из 3 заданных чисел(abc pascal)
a=10
b=20
c=27

Answer 1

var

 a, b, c: Integer;

begin

 a := 10;

 b := 20;

 c := 27;

 Write ('Наибольшее число = ');

 if a > b then

   if a > c then

     Write (a)

   else

     Write (c)

 else

   if b > c then

     Write (b)

   else

     Write (c);

end.