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

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