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

program test_b_m;
const N=10;
var x:byte;
    BM:boolmatr[1, N]; {boolean matrix}
    tmp:shortint;
    tmp3:shortint;
    tmp4:shortint;
begin
  x:=1;
  repeat  
    BM[1,x]:=false;   
    writeln(BM[1,x]);
    x:=x+1;
  until x=N+1;
  
  BM[1,5]:=true;

  writeln(' ');

  x:=1;
  repeat  
    writeln(BM[1,x]);
    x:=x+1;
  until x=N+1;
      
  tmp:=124;
  writeln('tmp = ', tmp);
  tmp2:=7;
 
  writeln(' ');
  writeln('Content: [1 X]');
  writeln(' ');
 
  x:=1;
tmp4:=18;
  repeat  
    writeln(BM[1,x]);
    x:=x+1;
  until x=N+1;
      
 tmp4:=54;
end.