var a:array[1..5] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 5 do
read(a[i]);
if a[i]>0 then s:=s+1;
writeln(s);
end.Вопросы, ошибки недочеты в ЛС!)
