Дано число (н) надо переставить первую и последнюю цифры этого числа

[COLOR=RoyalBlue]function[/COLOR] sqrtt(x,y:integer):integer; [COLOR=Gray]{Функция для подсчета степени числа, в нашем случае 10ки}[/COLOR]
  [COLOR=RoyalBlue]var[/COLOR] i:integer;
[COLOR=RoyalBlue]begin[/COLOR]
[COLOR=RoyalBlue]  if[/COLOR] y=1 [COLOR=RoyalBlue]then[/COLOR] sqrtt:=x
    [COLOR=RoyalBlue]else[/COLOR]
[COLOR=RoyalBlue]  for [/COLOR]i:=2 [COLOR=RoyalBlue]to[/COLOR] y [COLOR=RoyalBlue]do[/COLOR] x:=x*x;
  sqrtt:=x
[COLOR=RoyalBlue]end;[/COLOR]

  [COLOR=RoyalBlue]var[/COLOR] a,b,i:integer;
[COLOR=RoyalBlue]begin[/COLOR]
 readln(a);
 b:=a
 i:=0

[COLOR=RoyalBlue]while[/COLOR] (b div 10) <> 0 [COLOR=RoyalBlue]do begin[/COLOR] [COLOR=Gray]{Подсчет разрядов введенного числа}[/COLOR]
  b:=b div 10;
  inc(i)
[COLOR=RoyalBlue]end;[/COLOR]

[COLOR=RoyalBlue]if[/COLOR] i>0 [COLOR=RoyalBlue]then begin[/COLOR]
  b:=a mod 10;    [COLOR=Gray]{сохраняем младший разряд числа}[/COLOR]
  a:=a-a mod 10;   [COLOR=Gray]{удаляем младший разряд числа}[/COLOR]
  a:=a+a div sqrtt(10,i); [COLOR=Gray]{подставляем старший разряд на место младшего}[/COLOR]
  a:=a-sqrtt(10,i)*(a div sqrtt(10,i)); [COLOR=Gray] {удаляем старший разряд числа}[/COLOR]
  a:=a+b*sqrtt(10,i);   [COLOR=Gray]{подставляем младший разряд числа на место старшего}[/COLOR]
  writeln(a); [COLOR=Gray] {Выовд}[/COLOR]
[COLOR=RoyalBlue]end[/COLOR]
[COLOR=RoyalBlue]else[/COLOR] write('число однозначное'); [COLOR=Gray]{оповещение о невозможности произвести данную операцию}[/COLOR]
[COLOR=RoyalBlue]end[/COLOR].