Question

Помогите, пожалуйста, решить задачу в ПАСКАЛЕ



Одна из основных операций с числами – их сравнение. Мы подозреваем, что вы в совершенстве владеете этой операцией и можете сравнивать любые числа, в том числе и целые. В данной задаче необходимо сравнить два целых числа.
Входные данные
В двух строчках входного файла INPUT.TXT записаны числа A и B, не превосходящие по абсолютной величине 2×109.
Выходные данные
Запишите в выходной файл OUTPUT.TXT один символ “<”, если A < B, “>”, если A > B и “=”, если A=B.



1. 5 7 (<)
2. -7 -12 (>)
3. 13 13 (=)

Answer 1

Var
a, b:integer;
f,w:text;
begin
  assign(f,'input.txt');reset(f);
  assign(w, 'output.txt');rewrite(w);
  Readln(f, a, b);
  if (a > b) then Writeln(w, '>');
  if (a < b) then Writeln(w, '<');
  if (a = b) then Writeln(w, '=');
  close(f);close(w);
end.

Пример:
input.txt: 100 99
output.txt : >