var A, B, C, D, E : integer; begin readln(A); B := A; C := 0; D := A mod 10; While B <> 0 do begin C := C*10 + B mod 10; B := B div 10 end; E := C mod 10; If E=D then writeln('Первая цифра равна последней') else writeln('Первая цифра не равна последней') end.
Answers & Comments
var
A, B, C, D, E : integer;
begin
readln(A);
B := A;
C := 0;
D := A mod 10;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
E := C mod 10;
If E=D then writeln('Первая цифра равна последней')
else writeln('Первая цифра не равна последней')
end.