Var
n:longint;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
if s[1]>s[Length(s)] then Writeln('Первая цифра больше последней')
else Writeln('Первая цифра не больше последней')
end.
Тестовое решение:
Введите натуральное число: 526324
Первая цифра больше последней
Введите натуральное число: 3783
Первая цифра не больше последней