Напишите программу для записи четырехзначного числа в обратном порядке. например: 2451--> 1542 паскаль.

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
ReadInteger().ToString().Reverse().Select(x->x.ToDigit()).Println('');
end.

Var n,m: integer;
begin
  write('n = ');  readln(n);
  m:=0;
  repeat
    m:=m*10+(n mod 10);
    n:=n div 10;
  until n=0;
  writeln(m);
end.

n = 2456
6542