Поменять местами 3-ю и 5-ю цифры местами в пятизначном числе на паскале

program z1;

var a:integer;

begin

write('Введите пятизначное число: ');

readln(a);

a:=(a div 1000) * 1000 + (a mod 10) * 100 + (a mod 100 div 10) * 10 + a div 100 mod 10;

write('Меняем местами 3-ю и 5-ю цифры: ',a)

end.

Объяснение:

Проверки на ввод пятизначного числа нет