program A1;
var A: array[1..8] of integer;
    B: array[1..10] of integer;

function sum(a: integer):integer;
begin
    sum:=a+1;
end;

procedure fill;
var i: integer;
begin
    for i:=1 to 8 do
    begin
        A[i]:=sum(i);
        write(A[i], ' ');
    end;
    writeln;
    for i:=1 to 10 do
    begin
        B[i]:=sum(i);
        write(A[i], ' ');
    end;
    writeln;
end;

procedure find;
var i,j: integer;
begin
    for i:=1 to 8 do
        if (A[i] > 5) then
            j:=j+1;
    writeln('A = ',j);
    j:=0;
    for i:=1 to 10 do
        if (B[i] > 5) then
            j:=j+1;
    writeln('B = ',j);
end;

begin
    fill;
    find;
end.