цикл с постусловием (привести привер)

цикл с постусловием это repeatrepeat <операторы>until<условие>пример наpascal abc:program abc;var i,s:integer;begini:=1;s:=0;repeats:=s+i;i:=I+1;until i>10;writeln(s);end.сумма 10 цифр нат.ряда