Дан одномерный числовой массив. Все числа, имеющие четные цифры на четных позициях, увеличить в k раз, а все остальные числа увеличить в m раз, с помощью:-подпрограммы-процедуры;-без нее; — Pascal(Паскаль)

program matrix;

Uses CRT;

const
  n = 10;

var
  c: array [1 .. n] of integer;
  i, k, m: integer;

procedure massiv;
begin
  for i := 1 to n do
  begin
    if ((i mod 2) = 0) and ((c[i] mod 2) = 0) then
      c[i] := c[i] * k
    else
      c[i] := c[i] * m;
  end;
  Writeln('Vivod rezultata ');
  for i := 1 to n do
  begin
    Write(c[i], ' ');
  end;
end;

begin
  ClrScr;
  Writeln('VVedite elementi massiva');
  for i := 1 to n do
  begin
    Write(i, ': ');
    Read(c[i]);
  end;
  Write('VVedite k ');
  Read(k);
  Write('VVedite m ');
  Read(m);
  massiv;
  Readkey;

end.