bai3

program bai3;
uses crt;
var t:text;
var i:integer;
var a:integer;
var dem:integer;
begin
 clrscr;
 dem := 0;
 assign(t,'D:\11.txt');
 reset(t);
 while not eof(t) do
 begin
  readln(t,a);
  if (a>0) then
  begin
   dem := dem + 1;
   writeln(a);
  end;
 end;
 close(t);
 writeln('Tong so phan tu duong: ',dem);
 readln;
end.