Var x:integer; begin for x:=5 to 14 do begin x:=x*(x+1) end; end. PASCAL не уверен что работает но смысл такой