Дана последовательность 2, -3,18,13,-1б,-15,7,13 целых чисел. составить программу, которая находит сумму положительных членов последовательности. решите .

Структуру сам(а) напишешь, вот вообщем решение:
begin
//a(переменная, которая хранит число, одно из ряда чисел)
//b (- переменная, которая считает сумму)
b:=0
if a<0 then
b:=b+a;

end.