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

program prog;uses crt;var a,b: real;beginwrite('Введите число а = ');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.