Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае»

Листинг программы

var
  x,y:real;
begin
  write('x,y=');
  readln(x,y);
  if x<=y then x:=0;
  writeln('x=',x:0:4,' y=',y:0:4);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются две переменные типа real: x и y.
Выводится сообщение «x,y=», после чего считываются значения переменных x и y с помощью функции readln.
Проверяется условие x <= y. Если оно истинно, то значение переменной x заменяется на ноль.
Выводится сообщение «x=», после чего выводится значение переменной x с добавлением нуля в начало (x:0:4).
Выводится сообщение «y=», после чего выводится значение переменной y с добавлением нуля в начало (y:0:4).