СРОЧНО! ОТКЛИКНИТЕСЬ, ИНФОРМАТИКИ! Дан одномерный массив из 10 элементов.…

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