По программированию 8 класс. решите как положено через дано трехзначное число. найти число, полученное при перестановке первой и второй цифр заданного числа

Var a:integer;
begin
read(a);
write((a div 10 mod 10)*100+(a div 100)*10+a mod 10)
end.