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

var y, r:real; {описываем две переменные действительного типа} begin {старт алгоритма} read (y); {считывание входящих данных} read (r); if y<=r then y:=0; {сравниваем числа оператором 'if', если первое число меньше - тогда присваиваем ему значение "0"} writeln (y,' ', r); {вывод результата через пробел} end. {конец работы алгоритма}