90 lines
1.4 KiB
ObjectPascal
90 lines
1.4 KiB
ObjectPascal
program main;
|
|
var
|
|
ret: integer;
|
|
a0: array[0..2] of integer;
|
|
b0: array[0..3] of integer;
|
|
c0: array[0..6] of integer;
|
|
c: array[0..4, 0..2] of integer;
|
|
d: array[0..4, 0..2] of integer;
|
|
e: array[0..4, 0..2] of integer;
|
|
|
|
procedure InitializeArrays;
|
|
begin
|
|
// Initialize arrays a0, b0, and c0 element by element
|
|
a0[0] := 0;
|
|
a0[1] := 0;
|
|
a0[2] := 0;
|
|
|
|
b0[0] := 0;
|
|
b0[1] := 1;
|
|
b0[2] := 0;
|
|
b0[3] := 0;
|
|
|
|
c0[0] := 2;
|
|
c0[1] := 8;
|
|
c0[2] := 6;
|
|
c0[3] := 3;
|
|
c0[4] := 9;
|
|
c0[5] := 1;
|
|
c0[6] := 5;
|
|
|
|
// Initialize arrays c, d, and e element by element
|
|
c[0, 0] := 1;
|
|
c[0, 1] := 2;
|
|
c[0, 2] := 3;
|
|
c[1, 0] := 4;
|
|
c[1, 1] := 5;
|
|
c[1, 2] := 6;
|
|
c[2, 0] := 7;
|
|
c[2, 1] := 8;
|
|
c[2, 2] := 9;
|
|
c[3, 0] := 10;
|
|
c[3, 1] := 11;
|
|
c[3, 2] := 12;
|
|
c[4, 0] := 13;
|
|
c[4, 1] := 14;
|
|
c[4, 2] := 15;
|
|
|
|
d[0, 0] := 1;
|
|
d[0, 1] := 2;
|
|
d[0, 2] := 3;
|
|
d[1, 0] := 4;
|
|
d[1, 1] := 5;
|
|
d[1, 2] := 6;
|
|
d[2, 0] := 7;
|
|
d[2, 1] := 8;
|
|
d[2, 2] := 9;
|
|
d[3, 0] := 10;
|
|
d[3, 1] := 11;
|
|
d[3, 2] := 12;
|
|
d[4, 0] := 13;
|
|
d[4, 1] := 14;
|
|
d[4, 2] := 15;
|
|
|
|
e[0, 0] := 1;
|
|
e[0, 1] := 2;
|
|
e[0, 2] := 3;
|
|
e[1, 0] := 4;
|
|
e[1, 1] := 5;
|
|
e[1, 2] := 6;
|
|
e[2, 0] := 7;
|
|
e[2, 1] := 8;
|
|
e[2, 2] := 9;
|
|
e[3, 0] := 10;
|
|
e[3, 1] := 11;
|
|
e[3, 2] := 12;
|
|
e[4, 0] := 13;
|
|
e[4, 1] := 14;
|
|
e[4, 2] := 15;
|
|
end;
|
|
|
|
begin
|
|
ret := 0;
|
|
|
|
InitializeArrays;
|
|
|
|
ret := 5;
|
|
|
|
write(ret);
|
|
end.
|