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