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

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