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

//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.