Question

Помогите 4.6(б)
Даны два вещественных числа.Определить: какое из них меньше

Answer 1

//Pascal
var a,b:real;
begin
  readln(a,b);
  if a=b then writeln('Числа равны')
  else
     if a<b then writeln (a,'<', b) else writeln (b,'<',a);
end.