определите и выведите на экран количество трехзначных чисел, которые делятся одновременно...

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.

У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.

определите и выведите ** экран количество трехзначных чисел, которые делятся одновременно...