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

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.