Question

ПОЖАЛУЙСТА ПОМОГИТЕ!!!ОСЕНЬ НАДО!!!СРОЧНО!!!Написать программу поиска наибольшего из двух чисел. Найденное число должно быть помещено в переменную max.

Answer 1

Program fghh;
a,b,max:real;
Begin
Writeln('Введите числа a,b');
Readln(a,b);
if a>b
then max:=a
else max:=b;
Writeln('Наибольшее число ', max);
Readln(max);
end.