Вычислить сумму S целых чисел значения которых больше или равны 0. (программа Паскаль)

Question

Вычислить сумму S целых чисел значения которых больше или равны 0.
S=x1+x2+x3+x4+x5 или S=Σxi, где i принимает значения 1,2,3,4,5.
S ≥ 0, т.к. xi ≥ 0.

Answer 1

1.    начало
2.    S:=0
3.    «Введите пять целых положительных чисел»
4.    i:=1
5.    читаем xi
6.    S:=S+xi
7.    i:=i+1
8.    пока i≤5 п.4 иначе п.9
9.    Вывод S
10.    конец