program wont;

{$I-}

type t = (Pierwszy, Drugi);

var f: file;
g: t;
flag: integer;

begin
  assign(f, 'wont.dat');

  read(flag);
  if flag = 0 then begin
    g := Drugi;
    rewrite(f);
    BlockWrite(f, g, sizeof(t));
  end else begin
    reset(f);
    BlockRead(f, g, sizeof(t));
    writeln (IOResult);
    if IOResult = 0 then
      writeln(g);
  end;

  close(f);
end.