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

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