tests/webtbs/tw9072.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %opt=-Sew -vw }

{$mode tp}

var
  a: array[1..2] of longint;
  l: longint;
begin
  l:=0;
  for a[1]:=1 to 10 do
    for a[2]:=1 to 10 do
      inc(l);
  if (l<>100) then
    halt(1);
end.