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

ты просто переписал из другого сайта

Во первых, это не прилично, "тыкать", во вторых, я Вам могу привести еще три варианта решения этой задачи, если Вы в этом разбираетесь. Например, такое writeln(ReadString.Reverse.JoinIntoString(''));

Или, может быть, Вы хотите "изобрести" велосипед?

Слишком сложно 0_0

нет , мне нужен другой вариант

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 = 24566542

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