Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20,50] . Заменить нулем четные по значению элементы данного массива

а как мне это в abc pascal записать ? много непонятного

#яп - pythonimport randoma = []#массив с которым работаемfor e in range(15):#заполняем массив случайнми числами из промежутка    a += [random.randint(-20, 50)]for e in range( len(a) ):#заменяем четные числа на нули     if a[e] % 2 == 0: a[e] = 0print a

program qq;const n=15;var a:array[1..n] of Integer;i:Integer;beginfor i:=1 to n do begin                       a[i]:=random(70-20);                       write(a[i]:4);                      end;writeln;for i:=1 to n do begin                       if a[i] mod 2 = 0 then a[i]:=0;                       write(a[i]:4);                      end;end.