program lab2 var ir jr value integer AL array 13 of integer begin writ

 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
program lab2;
var i, K, ir, jr, value: integer;
AL, J: array[0..13] of integer;
begin
writeln('AL = ', AL);
writeln('J = ', J);
read(ir);
read(jr);
for i := 0 to 13 do begin
if AL[i] = 0 then begin
K := J[i];
continue;
end;
if((J[i] = jr) and (K = ir)) then begin
value := Al[i];
break;
end;
end;
writeln('A[', ir, ',', jr, ']', ' = ', value);
end.