Program prog;
Uses crt;

var a: array [1..5] of integer;
    i,k: integer;

begin
clrscr;

for i:=1 to 5 do
    begin
    write(a[,i,] = );
    readln(a[i]);
    if (a[i]lt;gt;0) then
    inc(k);
    end;

    writeln;
    write(k = , k);
end.