в массиве А (20) , диапазон: [-10; 30] посчитать количество элементов кратных 3 и каждый…

Program Pr1; uses crt; var mas: array[1… 20] of integer; i,a: integer; Beginclrscr; a: =0; randomize; for i: =1 to 20 do begin mas[i]: =-10+random (41); write (mas[i],'); end; for i: =1 to 20 do if mas[i] mod 3=0 then a: =a+1; for i: =1 to 20 do if mas[i] mod 3=0 then mas[i]: =mas[i]+a; writeln (); for i: =1 to 20 do write (mas[i],'); end.