#include<iostream>
using....
int main(){
int n=0,count=0;
do{
cin>>n;
if(n>0) count++; //strict pozitive adica fara 0
}while(n!=0);
cout<<count;
return 0;
}
Pascal(cred):
var n:integer,count:integer;
n:=readkey;
while n<>0 do
begin
if n>0 then count:=count+1
end
writeln(count);