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

var a,b:real;beginwrite('a = '); readln(a);write('b = '); readln(b);if a<=b then a:=0;writeln('a = ',a,'  b = ',b)end.Пример:a = 5b = 8a = 0  b = 8