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

Vara,b:real;BeginWrite('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.