program r16_15; uses crt; var n:longint; c:byte; Begin write('Введите число'); readln(n); c:=n mod 10; while n>9 do n:=n div 10; if c=n then writeln('Первая цифра числа равна последней') else writeln('Первая цифра числа не равна последней'); END.