Дано двузначное число. вывести число, полученное при перестановке цифр исходного числа. паскаль , вместе с блок схемой , хотя бы условия для нее, а схему начерчу сама, подалуйста нужно

Var a:integer; 
begin 
writeln('Введите число'); 
read(a); 
a:=a mod 10*10+a div 10; 
writeln('Число после перестановки цифр ', a); 
end.