{Поменять местами первую и последнюю цифры числа}
program borlpasc;
var b,a,n,k:integer;
begin write('введите число n=');
readln(n);
k:=n;
a:=k mod 10;
repeat b:=k mod 10;
k:=k div 10
until k div 10 =0;
b:=k mod 10;
writeln(a,n div 10 div 10 mod 10,n div 10 mod 10,b)
end.