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

program Summ;

const MIN_MARGIN = -5;
      MAX_MARGIN = 10;

type TIndex = integer;

var i:TIndex;
    Sum:integer;

begin
    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.