Нужна программа полная по Паскалю.
Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от -1000 до 1000.
В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры.

СПСИБО

VarN,M,S,A,i,j:integer;BeginS:=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.