Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество

program arr;var a: array [1..20] of integer;n: integer;beginrandomize;for i: integer:= 1 to 20 do begina[i]:= random(101) - 50;write(a[i] : 5);end;writeln();for i: integer:= 1 to 20 do if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then beginn:= n + 1;write(a[i] : 5)end else write(\'     \');writeln();writeln(\'Всего нечетных чисел чисел: \', n)end.