Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N,...

Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя<br> Тех. Требования:
Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT
Ограничение по времени 1 секунда
Формат входных данных:
В единственной строке задано число N.
Формат выходных данных:
В единственной стоке необходимо вывести один символ: "=", если цифры одинаковые"<", если первая цифра меньше последней, и ">", если первая цифра больше последней.
Пример файла входных данных:
1234
Пример файла выходных данных:

Var
  n,d:integer;
  f:Text;
begin
  Assign(f,'input.txt'); Reset(f);
  Read(f,n);
  Assign(f,'output.txt'); Rewrite(f);
  d:=n mod 10;
  while n>=10 do n:=n div 10;
  if n>d then Writeln(f,'>')
  else
    if n=d then Writeln(f,'=') else Writeln(f,'<');<br>  Close(f)
end.