С клавиатуры вводятся 2 числа.Найти большее из них. Написать программу полной команды...

Question

С клавиатуры вводятся 2 числа.Найти большее из них. Написать программу полной команды ветвления

Answer 1

Var a,b:real;
begin
read(a,b);
if a>=b then
writeln(a) else
writeln(b);
end.