Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. С постусловием (for ещ4 не изучали).
Const n=20; var sum:integer; i:byte; begin sum:=0; i:=1; repeat sum := sum + i; i := i+1; until (i=n); end.