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

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.