Найти максимальное из двух чисел по информатике

Program prog;
uses crt;
var a,b: real;

begin
write('Введите число а = ');
readln(a);
write('Введите число b = ') ;
readln(b);
writeln;
if a>b then writeln('Максимальное число а = ',a:0:3);
if a<b then writeln('Максимальное число b = ',b:0:3);
if a=b then writeln('Числа равны');
end.