Question

30 баллов
Из трёх данных вещественных чисел R, M, Y выбрать наибольшее и вывести его на экран. Числа R, M, Y ввести с клавиатуры с помощью оператора ввода
Паскаль

Answer 1

var r,m,y,max:integer;

begin

 readln(r);

 max:= r;

 readln(m);

 if m > max then max:=m;

 readln(y);

 if y > max then max:=y;

 writeln(max);

end.