Дано естественное число n. переставить первую и заключительную цифру числа n.

program zz1;

var
n, n1, m, k: integer;

begin
read(n); //вводим начальное число
m := n mod 10; //получаем последнюю цифру числа
n1 := n; //запоминаем начальное число
while n gt; 9 do
begin
n := n div 10; //получаем первую цифру числа
end;
n1 := (n1 div 10) * 10 + n; //ставим первую цифру на место заключительной
while n1 lt;gt; 0 do //переворачиваем число
begin
n := n1 mod 10;
k := k * 10 + n;
n1 := n1 div 10;
end;
k := (k div 10) * 10 + m; //ставим заключительную цифру на место первой
while k lt;gt; 0 do //переворачиваем число
begin
n := k mod 10;
n1 := n1 * 10 + n;
k := k div 10;
end;
write(n1); //выводим ответ
end.