СРОЧНО!!! ОТКЛИКНИТЕСЬ, ИНФОРМАТИКИ!...

СРОЧНО!!! ОТКЛИКНИТЕСЬ, ИНФОРМАТИКИ! Дан одномерный массив из 10 элементов. Заполнить его случйным образом. Найти количество тех элементов, значениякоторых меньше 20 и кратны заданному числу С. Программу можно, ПОЖАЛУЙСТА?

 

Program abc;
var a:array[1..10] of integer;
i,j,c:integer;
begin
writeln('Введите С='); readln(c);
for i:=1 to 10 do begin
a:=random(100);
write(a:3);
if ((a<20) and (a mod c = 0)) then inc(j);
end;
writeln('Кол-во тех элементов=',j);
end.