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

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