program Task2;
var
  N, I: Integer;
  F: Text;
begin
  Write ('N=');
  ReadLn (N);
  Assign (F, 'output.txt');
  ReWrite (F);
  I := 2;
  while I < N do
    begin
      Write (F, I, ' ');
      Write (I, ' ');
      I := I + 2;
    end;
  WriteLn;
  WriteLn (F);
  I := 1;
  while I < N do
    begin
      Write (F, I, ' ');
      Write (I, ' ');
      I := I + 2;
    end;
  ReadLn;
  Close (F);
end.

program Task4;
var
  S: String;
  I: Integer;
begin
  WriteLn ('Vvedite stroku');
  ReadLn (S);
  for I := 1 to Length (S) do
    if (S[I] <> '0') and (S[I] <> '5')
    then Write (S[I]);
  WriteLn; ReadLn;
end.