Var a,x,y:integer;
begin
writeln ('Введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.
Думаю
