Составить блок-схему к данному кодуVar a,n,i,k:integer; Begin Readln(n); k:=0; For i:=1 to N do Begin readln(a); if a>0 then k:=k+1; end; Writeln(k); End.