Ввести четырехзначное число. Поменять крайние цифры числа местами.

Var n : Integer;Begin  Readln(n);  n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);  Writeln(n);end. Ввод: 1234Вывод: 4231