Задать два целочисленных массива одинакового размера (не более 21 элементов).вывести исходные массивы на экран. сформировать новый массив , явл. целой частью от деления первого массива на второй . вычислить кол-во нечетных элементов каждого массива(я вообще не понимаю этот чертов паскаль, выручайте)

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('n=');

  var a : = arrrandom(n, -99, 99);

  a.println;

  var b : = seqrandom(n, -10, 10).select(t -> t = 0 ? 1 : t).toarray;

  b.println;

  var c : = a.zip(b, (p, q)-> p div q).toarray;

  c.println;

  print('нечетных элементов: ');

  a.where(t -> t.isodd).count.print;

  b.where(t -> t.isodd).count.print;

  c.where(t -> t.isodd).count.println;

end.

n= 13 72 94 79 3 15 -82 72 -72 14 -79 23 -48 26 -6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1 -12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26 нечетных элементов: 5 7 3

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

i,n,ka,kb,kc: integer;

begin

write ('введите количество элементов массива (не более 21 элементов): ');

readln (n);

for i: =1 to n do

begin

a[i]: =random (199)-99;

b[i]: =random (21)-10;

c[i]: =a[i] div b[i];

if a[i] mod 2 < > 0 then ka: =ka+1;

if b[i] mod 2 < > 0 then kb: =kb+1;

if c[i] mod 2 < > 0 then kc: =kc+1

end;

write ('1-й массив: ');

for i: =1 to n do write(a[i]: 3,'   ');

writeln;

write ('2-й массив: ');

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

writeln;

write ('3-й массив: ');

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

writeln;

write ('количество нечётных элементов в 1-м массиве: ',ka,'; во 2-м массиве: ',kb,'; в 3-м массиве: ',kc)

end.

Итог работы программы: 7