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

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