В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной M будет находиться:
…j:=0; m:=1; n:=10;for i:=1 to n do x[i]:=i;for i:=1 to n do begin if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end;for i:=1 to j do m:=m*x[y[i]]; …