begin
RecordCount := RecordCount + 1;
ReadLn ( Score [ Recordcount ] )
end;
{ lines using RecoudCount }
...i j k
for TeamIndex := i to TeamCount to begin
for EventIndex := 1 to EventCount[ TeamIndex ] do
Score[ TeamIndex, EventIndex ] := 0
end;
i j
j i Score [ TeamIndex,
EvenIndex ] Score[i,j] i j k
9.2.2
flag flag
flag
C
if Flag ...
if StatusFlag & 0x0F ...
if PrintFlag 16 ...
if ComputerFlag 0 ...
Flag = 0x1;
StatusFlag = 0x80;
PrintFlag = 16
ComputerFlag = 0
statusFlag =
0x80 , Statusflag 0x80