Дано двузначное число. Переставить его числа и вывести отвеи. В програме

program zz1;

var a, b, p, s:integer; // задаем переменные целого типа

begin

write( введите двузначное число );  // вводим с клавиатуры двузначное число

read(a);  

b:= a mod 10; // находим вторую цифру двузначного числа

p:= a div 10; // находим первую цифру двузначного числа

s:=b * 10 + p; // получаем новое двузначное число перестановкой цифр

write( приобретенное новое двузначное число =  , s); // выводим ответ

end.