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 .