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

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