program PascalGuru;
uses crt;
 
var X:array[1..20] of integer;
    A:array[1..4,1..6] of integer;
    i,j,k:integer;
 
 
begin
writeln ('Vvedite elementy massiva X:');
for i:=1 to 20 do begin write ('X[',i,']='); readln (X[i]); end;
 
clrscr;
writeln ('Vot vvedennyy vami massiv X: ');
for i:=1 to 20 do write (X[i],'  ');
writeln;
writeln;
 
k:=0;
for i:=1 to 4 do
for j:=1 to 6 do
    begin
     inc(k);
     if k<21 then A[i,j]:=X[k] else A[i,j]:=0;
    end;
 
writeln;
writeln ('Sformirovannyi massiv A: ');
for i:=1 to 4 do begin writeln;
for j:=1 to 6 do write(A[i,j]:8); end;
 
readln;
end.