составить алгоритм полученного 2-х значного числа, путем перестановки его цифер

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.

Думаю помог)