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

var a, b, c, x: integer;

begin

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

   readln(a);

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

   readln(b);

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

   readln(c);

   if a gt; b then

       x:=a

   else

       x:=b;

   if x gt; c then

       writeln('Величайшее число: ', x)

   else

       writeln('Величайшее число: ', c);

end.