Даны 2 действительных числа.заменить первое число нулем,если оно меньше или равно второго,и оставить числа без изменения числа в противном случае.числа вводятся пользователем с клавиатуры.результат работы программы выводится на экран

Var a,b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a<=b then a:=0;
writeln('a = ',a,'  b = ',b)
end.

Пример:
a = 5
b = 8
a = 0  b = 8