Дано натуральное число n (1< =n< =10000). требуется написать программу, определяющую для n, какая цифра больше – первая или последняя.

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

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы