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

program test_b_m;
const N=10;
const MIN_MARGIN = -5;
      MAX_MARGIN = 10;

type TIndex = integer;

var i:TIndex;
    Sum:integer;
    
var x:byte;
    BM:boolmatr[1, N]; {boolean matrix}
    tmp:shortint;
begin
 writeln('Input Matrix');
  x:=1;
  
  repeat  
    BM[1,x]:=false;   
    x:=x+1;
  until x=N+1;
  
  BM[1,5]:=true;
      
  x:=5;
  tmp:=1;
           
   if BM[tmp,x]=true then
   begin
       writeln('TRUE = ',BM[tmp,x]);
   end
   else
   begin
       writeln('FALSE = ', BM[tmp,x]);
   end;

    i:=MIN_MARGIN;
    Sum:=0;
    repeat
        Sum:= Sum+i;
        
        writeln(i);
        
        writeln('Partial sum = ', Sum);
        
        i:=i+1;
    until i>MAX_MARGIN;
    writeln('Sum(',MIN_MARGIN,'..',MAX_MARGIN,')= ',Sum);      
end.