Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7(в паскале авс)  РЕБЯЯЯЯТ ОЧЕНЬ НАДО!!!

  program del; uses crt; var chisla: array[1..15] of integer;        n, i, k:integer; begin  clrscr;  write ('Введите кол-во чисел: ');  readln (n);   for i:=1 to n do    begin      write ('Введите 'i'-тое число: ');     readln (chisla[i]);    end;   for i:=1 to n do    if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then     k:=k+1;   write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');   readln; end.              У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.