написать программу которая определяет максимальное значение 2 вещественных чисел в pascal

Question

написать программу которая определяет максимальное значение 2 вещественных чисел в pascal

Answer 1

Program vewestvennoemax;
var max,a,b:real;
begin
readln(a,b);
if a>b then max:=a else max:=b;
writeln('Maksimalnoe= ',max);
end.