Дано трёхзначное число. найти число, полученное при перестановке второй и третьей цифры заданного числа. в паскале 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.