PROGRAM PROGRAM10; USES WinCRT; VAR i, s: Integer; BEGIN s:=0; FOR i:=1 TO 100 DO s := s + i ; Writeln('suma prvih 100 prirodnih brojeva je ',s); END.