Из 2 чисел a и b выбрать наибольшее. надо написать программу в паскале.

Program Max;

Uses Crt;

var a, b, max:real;

begin

clrscr;

write ('Введите число а:') ;

readln (a) ;

write ('Введите число b:') ;

readln (b) ;

if (a=b) then writeln ('Числа одинаковы')

else begin

max:=a;

if (b>a) then max:=b;

writeln ('Наибольшее число:', max) ;

end;

readkey;

end.