{Винарский 15_45}
program t_15_45(input,output);

function count: integer;
var k,d: integer; c: char; t: text;
  begin
    assign(t,'D:\Паскаль\задача.txt');
    reset(t); k:=0;
    while ((not(eof(t))) and (eoln(t))) do
      begin
        readln(t);
        k:=k+1;
      end;
    count:=k;
    close(t);
  end;

begin
  write('count = ',count);
end.