Question

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

Answer 1

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