testmarcov.out

来自「格式化源码的最新板」· OUT 代码 · 共 26 行

unit testmarcov;

interface

var
  bigs, storesc, searchdepth, mcount, rrate, hyva, huonoja, viimeksi, wmat, bmat,
  bonus, movesmade, posvalue: integer;
  kpos, positions, pos2:      longint;
  mwk, mbk, mwra, mbra, mwrh, mbrh, viewscores, analysis, keskeyta, opening, stopcalc: boolean;

implementation

procedure fred;
var
  s: string;
  i: integer;
begin
  s := 'a very very long string that is indeed much more than 80 chars in its total length and will break in an ugly manner';
  i := 12;
  if ((i < 1) and (i < 2) and (i < 3) and (i < 4) and (i < 5) and (i < 6) and (i < 7)) then
  begin
  end;
end;

end.