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

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.    конец