Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран общее количество забитых и общее количество пропущенных мячей.

Var

z, i, p:integer;

m:array[1 ... 21]of integer;

begin

writeln ('Массив:') ;

for i:=1 to 21 do

begin

m[i]:=random (3) ;

if i mod 3=1 then m[i]: = (i div 3) + 1;

write (m[i],' ') ;

if i mod 3=2 then z:=z+m[i];

if i mod 3=0 then p:=p+m[i];

end;

writeln;

writeln ('Всего забито: ', z) ;

writeln ('Всего пропущено: ', p) ;

end.