blob: 6335588eaed97f2c413568a8eff16f63abec0be3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
unit uw3103;
interface
const MaxArt = 2000;
type
WordArr = array[1..MaxArt] of word;
var
RefList : array[1..MaxArt] of string;
Theorems : array[- 1..MaxArt,1..2] of byte;
implementation
procedure P;
var lThNbr : WordArr;
sArr : array[- 1..MaxArt] of Integer;
pctTh : array[- 1..MaxArt] of real;
k : integer;
lThArr : array[- 1..MaxArt] of Integer;
begin
sArr[k] := k;
if RefList[k] = 'A' then lThArr[- 1] := lThNbr[k];
pctTh[k] := Theorems[k,1];
end;
begin
end.
|
