Домашнее задание:
Ввести три числа и найти наибольшее из них.
Пример:
Введите три числа:
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.