Пожалуйста, напишите программу для того, чтобы в целом натуральном числе n поменять местами первую и последнюю цифру, с помощью цикла While в Pascal ABC.
Дам за него 15 баллов. Пожалуйста, помогите!

Я нашла покороче:Program Izmenenie;var n,d,p:integer;beginwrite('n = ');ReadLn(N);p:=n;d:=1; while n div (d*10)>0 dod:=d*10;n:=n mod 10*d+n mod d div 10*10+n div d;WriteLn('Èçìåíåííîå ÷èñëî : ', n);end.

program chik;var n,a,b,s,q,k:integer;beginreadln(n);q:=n mod 10;while n>0 dobeginb:=n mod 10;n:=n div 10;s:=s*10+b;end;n:=q;s:=s div 10;while s>10 dobegink:=s mod 10;s:=s div 10;n:=n*10+k;end;n:=n*10+b;writeln(n);end.