Lazarus бағдарламалау ортасында енгізілген код;var a, b, c: integer:beginc:=1:a:=StrTolnt(Edit1.Text)b:=StrTolnt(Edit2.Text)a:=1 үшін b істеуc:=c*a;form1.Caption:=IntToStr(c);end:Бұл алгоритм оның құрылымы бойынша аталады.