Дано четырехзначное натуральное число A. Какое число получится, если в нем поменять местами вторую и последнюю цифры?
!! (программа паскаль)

var  n, a1, a2, a3, a4: integer;begin  repeat    writeln('Введите четырёхзначное число:');    readln(n);    if (n < 1000) or (n > 9999) then writeln('Ошибка');  until (n >= 1000) and (n <= 9999);  a4 := n mod 10;  a3 := n div 10 mod 10;  a2 := n div 100 mod 10;  a1 := n div 1000;  n := a1 * 1000 + a4 * 100 + a3 * 10 + a2;  writeln(n)end.