8 laba

program lab8;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    f,g:text;
    j:integer;
    s:string;
  begin
    j:=1;
    assign(f,'input.txt');
    assign(g,'output.txt');
    reset(f);
    rewrite(g);
    while not eof(f) do begin
      readln(f,s);
      inc(j);
    end;
    close(f);
    j:=1;
    reset(f);
    while not eof(f) do begin
      readln(f,s);
      if j mod 2<>0 then begin
        writeln(g,s);
      end;
      inc(j);
    end;
    close(g);
    close(f);
    rename(g,'inp.txt');
    writeln('Check inp.txt');
    readln;
end.