Ввести три числа и найти наибольшее из них. пример: введите три числа: 4 15 9 наибольшее число 15​

Для типа integer

Program n_1;

var x,y,z:integer;

begin

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

   read(x, y, z);

   if y>x then x:=y;

   if z>x then x:=z;

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

end.

Для типа real

Program n_1;

var x,y,z:real;

begin

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

   read(x, y, z);

   if y>x then x:=y;

   if z>x then x:=z;

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

end.