Исправить ошибки: program pr4-2 ;
const m=3; n=4;
var
a : array [l .. m, 1 .. n] of integer; (* описание матрицы *)
b : array [1 .. n] of integer; (* описание вектора *)
c : array [1 .. m] of integer; ( * описание С *)
i, j: integer;
begin
for i:=l to m do (* ввод матрицы *)
begin
writeln ('введите элементы ', i , '-той строки');
for j:=1 to n do read(a[i, j] );
writeln;
end;
writeln ('введите элементы вектора');
for j:=1 to n do (* ввод вектора *)
read (b[ j]);
writeln;
for i:=l to m do
begin
c[i]:=0;
for j:=l to n do c[i] := c[i]+a[i,j]* b[j];
end;
for i:=l to m do (*форматный вывод матрицы *)
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
for j:=l to n do write(b[j]:4); (* вывод массива B *)
writeln ;
for i:=l to m do write(c[i]:4); (* вывод массива С *)
readln;
end.

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.