Дано естественное число N (1amp;lt;=Namp;lt;=10000). Нужно написать программку, определяющую для

Var
  s:string;
  c1,cn:char;
  n:integer;
begin
  Write('Введите естественное число: '); Read(n);
  Str(n,s);
  c1:=s[1];
  cn:=s[Length(s)];
  if c1gt;cn then Writeln('Первая цифра больше заключительней')
  else
    if c1lt;cn then Writeln('Первая цифра меньше заключительней')
    else Writeln('1-ая и заключительная числа схожи')
end.

Тестовые решения
Введите естественное число: 362336
1-ая цифра меньше заключительней

Введите натуральное число: 7341423
1-ая цифра больше заключительной

Введите натуральное число: 4624
1-ая и заключительная числа схожи