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.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.