var f:text;xz:0..2;djz,djd:longint;
begin
  writeln('1:archive;2 or 0:again.');
  read(xz);
  if xz=1 then begin assign(f,'F:\fujian\cundang.txt');reset(f);read(f,djz);close(f);end
  else djz:=1;
  writeln('1:attack;0:Defense;2:archive;3:exit.');
  repeat
    randomize;
    djd:=random(10)+djz-5;
    writeln('Our class:',djz,'    the enemy ranks:',djd);
    read(xz);
    if xz=1 then
    if djz>=djd then begin writeln('Victory!');inc(djz); end
    else begin writeln('Failure!');inc(djz,-1); end
    else if xz=2 then begin assign(f,'F:\fujian\cundang.txt');rewrite(f);writeln(f,djz);
    close(f);end else writeln('Escape!');
    if xz=3 then halt;
  until not true;
end.