Семейное задание: Ввести три числа и найти величайшее из их.

Для типа integer

Program n_1;

var x,y,z:integer;

begin

   writeln('Введите 3 числа:');

   read(x, y, z);

   if ygt;x then x:=y;

   if zgt;x then x:=z;

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

end.

Для типа real

Program n_1;

var x,y,z:real;

begin

   writeln('Введите 3 числа:');

   read(x, y, z);

   if ygt;x then x:=y;

   if zgt;x then x:=z;

   writeln('Наивеличайшее число: ',x:0:5);

end.