{Винарский 15_42}
function empty(var t: text): integer;
var k,d: integer;
  begin
    reset(t); k:=0;
    while (not(eof(t))) do
      begin
        if(eoln(t)) k:=k+1;
        readln(t);
      end;
    empty:=k;
  end;