Дано два числа визначте чи рівні вони який більше?

Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
     else WriteLn(a,' < ',b);
End.