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

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.