Программа для сравнения двух целых чисел
program CompareNums;
var
numOne, numTwo : integer;
begin
write('Введите первое число ');
readln(numOne);
write('Введите второе число ');
readln(numTwo);
if numOne = numTwo then
writeln(numOne, ' = ', numTwo)
else
if numOne < numTwo then
writeln(numOne, ' < ', numTwo)
else
writeln(numOne, ' > ', numTwo);
writeln('Для выхода из программы нажмите клавишу Enter');
readln;
end.