Составить программу для паскаль по заданной блок-схеме.

var a, b, c, x: integer;

begin

   write('Введите A: ');

   readln(a);

   write('Введите B: ');

   readln(b);

   write('Введите C: ');

   readln(c);

   if a > b then

       x:=a

   else

       x:=b;

   if x > c then

       writeln('Наибольшее число: ', x)

   else

       writeln('Наибольшее число: ', c);

end.