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, -1, -5, -3

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