Виконайте наведену програму (10 кроків = 1 клітинка).
​

var

  a,b,c:array [1..20] of integer;

  i,k,l:integer;

begin

  randomize;

  k:=1;

  l:=1; 

  writeln ('Исходный массив: '); 

  for i:=1 to 20 do

   begin

    a[i]:=random(9)+1;

    if a[i] mod 2 = 0 then

     begin

      b[k]:=a[i];

      inc(k);

     end else

      begin

       c[l]:=a[i];

       inc(l);

      end; 

    write (a[i],' ');

  end;

  k:=k-1;

  l:=l-1; 

  writeln;

  writeln ('Массив четных чисел');

  for i:=1 to k do write (b[i],' ');

  writeln;

  writeln ('Массив нечетных чисел');

  for i:=1 to l do write (c[i],' ');

  writeln;

  readln;

end.

var

  a:array [1..5,1..5] of integer;

  i,j:integer;

  f:boolean;

begin

  randomize;

  f:=false;

  writeln ('Исходный массив: '); 

  for i:=1 to 5 do begin

   for j:=1 to 5 do begin

    a[i,j]:=random(12)-3;

    if (i=j) and (a[i,j]<0) then f:=true;

    write (a[i,j]:3);

   end;

   writeln;

  end;

  if f=true then begin

    writeln ('Полученный массив: ');   

   for i:=1 to 5 do begin

    for j:=1 to 5 do begin

     if (i=j) then a[i,j]:=0;

     write (a[i,j]:3);

    end;

    writeln;

   end 

  end else writeln ('На главной диагонали нет отриц. эл.'); 

  readln;

end.