3. Определите результат выполнения фрагмента программы:
X:=0;
FOR I: = 4 DOWNTO 1 DO X: = X+I;
WRITELN(X);

0