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

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.