Unnamed

program as_esu_lameris;
var x, kiek:integer;
begin
  writeln('VEskite skaicius, srauto pabaiga 0');
  readln(x);
  kiek := 0;
  while  (x<>0) do
      begin
      if x > 0 then kiek := kiek + 1;
       readln(x);
      end;

  WriteLn('teigiamu skaiciu:',kiek:5 );
  Readln;
end.