Задача: составить программу которая из данного четырехзначного числа получает новое четырехзначное число поменяв цифры. Первую с последней и вторую с третьей.
Pascal

begin

 var n1 := ReadlnInteger();

 var s := n1.ToString;

 var n2 := s[::-1].ToInteger;

 Print(n2)

end.