Дано двузначное число. Получить число, образованное при перестановки цифр заданного числа

Текст программы на Паскале:

var

ish: integer; / /исходное двузначное число

pol: integer; / /полученное двузначное число

begin

writeln ('Введите исходное двузначное число: ');

readln (ish);

pol: = (ish mod 10) * 10; / /присваиваем разряду десятков полученного числа значение разряда единиц исходного числа

ish: = ish div 10;

pol: = pol + ish; / /присваиваем разряду единиц полученного числа значение разряда десятков исходного числа

writeln ('Полученное двузначное число равно: ', pol);

end.