Question

Pascal. Смотреть фотографию во вложении.

Answer 1

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

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