Pascal ABC
Вставить строку из единиц после строк, первый элемент которых четный

type  mas=array[,] of integer;const  n=5;  m=6;var  i,j,ik,jk,k:integer;  a:mas;  b:array[0..n-1]of integer;//вспомогательный массивbeginsetlength(a,n,m);writeln('Массив:');for i:=0 to n-1 do  begin  for j:=0 to m-1 do    begin    a[i,j]:=random(20);    write(a[i,j]:4);    end;  writeln;  end;writeln('Вставка строк:');// в массиве b признак наличия в строке 1-го четногоfor i:=0 to n-1 do    if a[i,0] mod 2=0 then b[i]:=1;for i:=0 to n-1 do k:=k+b[i];k:=n+k-1;setlength(a,k+1,m);ik:=k;for i:=n-1 downto 0 do  begin  if b[i]=1 then      begin      for jk:=0 to m-1 do a[ik,jk]:=1;      ik:=ik-1;      end;  for jk:=0 to m-1 do a[ik,jk]:=a[i,jk];  ik:=ik-1;  end;for i:=0 to k do  begin  for j:=0 to m-1 do write(a[i,j]:4);  writeln;  end;  end.