program _1_;
uses crt;
var
   a:array [1..100] of integer;
   b:array [1..100] of integer;
   c:integer;
   i:integer;
   j:integer;
begin
clrscr;
writeln('vvedite 4islo');
readln©;
i:=0;
writeln('masiv 1:');
while c<>0 do begin
  i:=i+1;
  a[i]:=c mod 10;
  c:=c div 10;
  write(a[i],' ');
end;
writeln;
writeln('masiv 2:');
j:=1;
while i<>0 do begin
  b[j]:=a[i];
  write(b[j],' ');
  i:=i-1;
  j:=j+1;
  end;
readln;
end.

var
   a:array [1..100] of integer;
   b:array [1..100] of integer;

var
  a, b: array[1 .. 9] of byte;
  X: longint; i, j: integer;

begin
  X := 14567; { <--- Сделать ввод с клавиатуры }
  i := 0;
  while X > 0 do begin
    inc(i); a[i] := X mod 10;
    X := X div 10;
  end;

  for j := i downto 1 do
    b[i - j + 1] := a[j];

  for j := 1 to i do write(a[j]:4);
  writeln;
  for j := 1 to i do write(b[j]:4);
  writeln;
end.

var
  a: array[1 .. 9] of byte;
  b: array[1 .. 9] of char;
  X: longint; i, j: integer;
begin
  X := 14567;
  i := 0;
  while X > 0 do begin
    inc(i); a[i] := X mod 10;
    X := X div 10;
  end;
  for j := i downto 1 do
    b[i - j + 1] := Chr(Ord('A') + a[j]); { 0 заменяется на А, 1 на B и так далее... }
  for j := 1 to i do write(a[j]:4);
  writeln;
  for j := 1 to i do write(b[j]:4);
  writeln;
end.