section_heading: Pascal
paragraph_text: <syntaxhighlight lang="pascal"> program Faktorijela; var Brojac, Faktorijela: integer; begin Brojac := 5; Faktorijela := 1; while Brojac > 0 do begin Faktorijela := Faktorijela * Brojac; Brojac := Brojac - 1; end; Write(Faktorijela); end. </syntaxhighlight>