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

Question

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

Answer 1

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