Курсовая работа. / РЯП_Ксю / Our_compiler / Examples / test_2

program test_b_m;
const N=10;
var x:byte;
BM:boolmatr[1, N]; {boolean matrix}
tmp:shortint;
begin
x:=1;

repeat
BM[1,x]:=false;
x:=x+1;
until x=N+1;

BM[1,5]:=true;

x:=1;
tmp:=1;

repeat
if BM[tmp,x]=true then
begin
writeln('TRUE = ',BM[tmp,x]);
end
else
begin
writeln('FALSE = ', BM[tmp,x]);
end;
x:=x+1;
until x=N+1;

end.