program MAS;
var i:integer;
    a:array [1..7] of real;
    sp:real;
    po:real;
    b:array[1..3] of real;
    begin
    for i:=1 to 7 do
    begin
    write( 'введи',i,'А И Б');readln (a[i]);
    end;

    for i:=1 to 7 do writeln ('a[',i,']=',a[i]:5:2);
    sp:=0; po:=1;
     for i:=1 to 7 do
     if a[i]>0 then sp:=sp+a[i];
     writeln ('sp=',sp);
    for i:=1 to 3 do
    begin
    write( 'введи',i,'А И Б');readln (b[i]);
    if b[i]<0 then po:=po*b[i];
    writeln ('po=',po);  end;
    end.