Нужна программа полная по Паскалю.

Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от - 1000 до 1000.

В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры.

Var

N, M, S, A, i, j:integer;

Begin

S:=0;

j:=0;

Write ('N = ') ; Read (N) ;

Write ('M = ') ; Read (M) ;

For i: = 1 to N do

Begin

A:=random (2001) - 1000;

Write (A,' ') ;

if A mod M = 0 then

Begin

S:=S+A;

j:=j+1;

End;

End;

WriteLn;

if j=0 then Write ('Чисел, кратных ', M,' нет')

else Write ('Среднее арифметическое чисел, кратных ', M,' = ', S/j) ;

End.