Pascal. Глядеть фотографию во вложении.

// PascalABC.Net
var
  a,b:integer;
begin
  Write('Введите через пробел два целых числа: '); Read(a,b);
  if agt;b then Writeln(a,'gt;',b)
  else
   if alt;b then Writeln(a,'lt;',b)
   else Writeln('Числа равны')
end.

Тестовое решение:
Введите через пробел два целых числа: 18 -7
18gt;-7