Дано число. Поменять первую и последнюю цифру местами, если они не равны друг другу.

Паскаль)

Program qq;

var a, x, y, count, i: integer;

begin

writeln ('Введите число') ;

readln (a) ;

x:=a mod 10;

y:=a;

count:=0;

while (y>9) do

begin

y:=y div 10;

count:=count+1;

end;

if xy then

begin

a:=a-x+y;

for i:=1 to count do

begin

x:=x*10;

y:=y*10;

end;

a:=a-y+x;

writeln ('Получено число:') ;

writeln (a) ;

end

else

writeln ('Первая и последняя цифра одинаковые.') ;

end.

Как вариант) Может, не совсем эффективно, но работает.