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

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.