program hhh;
uses crt;
var f:text; m:byte; s:string;
BEGIN clrscr;
assign(f,'c:\tex.txt');
reset(f);
m:=0;
while not eof(f) do begin readln(f,s);
IF s='' THEN m:=m+1;
end;
writeln('kol-vo pystux strok - ',m);
close(f);
readln;
END .