Дано трёхзначное число. Найти число, полученное при перестановке второй и третьей цифры заданного числа. в Паскале abc

var a:integer; begin writeln('Введите число'); read(a); a := a div 100*100 + a mod 10*10+ a mod 100 div 10; writeln(a); end.