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

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