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

Question

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

Answer 1

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

Answer 2

Var a,b:real;
begin
writeln ('Введи два вещественных числа');
readln (a,b);
if aelse if bwriteln (a:5:2,' ',b:5:2);
readln;
end.


Если я правильно поняла.