VA ROG FRUMOS SA MA AJUTATI DAU COROANA,IN PASCAL SA FIE VA ROG
n va lua valori din sirul: 2, -3, 4, 4, -1, 0, 6, 5

s<- 0;
CITESTE n;
CAT_TIMP (n<>0) EXECUTA
DACA n>0 ATUNCI
s<- s+n;
SFARSIT_DACA;
CITESTE n;
SF_CAT_TIMP;
SCRIE „s=”, s;