как эти массивы вывести на экран.
господа, если не лень допишите к строкам комменты. Спасибо.
Код
program lab_8;
const m0=100;
var a:array[1..m0] of integer;
b:array[1..m0] of integer;
c:array[1..m0] of integer;
n,i,k,s,m,d: integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
begin
writeln('A',i,'=');
readln(a[i]);
end;
k:=1;
s:=1;
m:=1;
d:=1;
for i:=1 to n do
begin
if A[i]<0 then
if (a[i] mod 2)<>0 then
begin
b[k]:=A[i];
k:=k+1;
end;
end;
for i:=1 to n do
begin
s:=s*A[i];
m:=m+1;
end;
if s<sqr(m-1) then
begin
C[d]:=A[i];
d:=d+1;
end;
writeln('количество членов последовательности 1=',k-1);
writeln('количество членов последовательности 2=',d-1);
readln;
end.