Составить программу на языке паскаль вводится натуральное число х (х> 9). 1. определить, ли по значению первая и последняя цифры.. например, ввод: 727 вывод: число начинается и заканчивается цифрой 7 ввод 123 вывод первая и последняя цифры не .

Var a,b,c:integer;
begin
write('a = '); readln(a);
b:=a mod 10;
c:=a;
while c>9 do c:=c div 10;
if (a>9) 
 then if b=c
        then writeln('Число начинается и заканчивается цифрой ',c)
        else writeln('Первая и последняя цифры не совпадают')
 else writeln('Число < 10');
end.

Пример:
a = 65478
Первая и последняя цифры не совпадают

Прога в приложении