Дан одномерный массив D ,размерностью 20. Элементы массива - это целые числа из промежутка [0;750]. Напишите программу в Паскале ,вычисляющую количество элементов массива больших 500, которые кратны числу 15. 

const  n=20;var  i,k,e:integer;  a:array[1..n] of integer;begin  Randomize;  k:=0;  for i:=1 to n do begin    e:=random(750);    a[i]:=e;    if (e>500) and (e mod 15 =0) then      k:=k+1;    write(e:4)    end;  writeln;    writeln('Найдено чисел: ',k);end.Тестовый пример: 262 743 705 288 545 694 437 280 317 434  53 344 302 293 246 200 608 194 523 478Найдено чисел: 1