Пользователь-Человек в твою программу вводит два числа А программа ему пишет, какое из них больше написать программу в Паскале .

Var A,B:integer; Begin Write('A = '); ReadLn(A); Write('B = '); ReadLn(B); if A>B then Write(A,' > ',B) else if A=B then Write(A,' = ',B)      else Write(A,' < ',B); End.