35 БАЛЛОВ!!!!
В целом числе поменяйте порядок цифр на обратный. Результат выведите на экран.

Почему в решении есть mod и div если в условии сказано, что число целое ?

:D

понял принял

program time;var x, a, b, c, d: integer;begin  readln(x);  a:= x div 1000;  b:= (x mod 1000) div 100;  c:= (x mod 100) div 10;  d := x mod 10;  writeln(d,c,b,a);end.