Дано черырехзначное число две средние цифры убрали и приписали их в конец числа вывести результат pascall

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=').ToString;
  Writeln(n[1],n[4],n[2:4])
end.

Пример
n= 1458
1845