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

var  a, b : real;begin  read (a, b);  if (a < b) then a := 0;  write (a, ' ', b);end.

Var a,b:real;beginwriteln ('Введи два вещественных числа');readln (a,b);if a<b then a:=0else if b<a then b:=0;writeln (a:5:2,' ',b:5:2);readln;end.Если я правильно поняла.