Помогите пожалуйста нужно срочно
4. Определить результат выполнения фрагмента программы: Х:=0:for i: = 4 downto 1 do X: = X+I; writeln(X);