Помогите пожалуйста )) Программа на паскале.Ввести натуральные числа и их количество. Найти и вывести количество чисел, кратных трем и окачивающихся на 5. Если что то непонятно, пишите, уточню.

Спасибо большое за помощ)))

var  n,i,k,d:integer;begin  Write('Количество чисел='); Read(n);  k:=0;  Writeln('Вводите числа, после каждого числа нажимайте Enter');  for i:=1 to n do begin    Read(d);    if (d mod 3 = 0) and (d mod 10 = 5) then Inc(k)  end;  Writeln('Количество чисел, удовлетворяющих условию, равно ',k)end.Тестовое решение:Количество чисел=8Вводите числа, после каждого числа нажимайте Enter5371255359993100575Количество чисел, удовлетворяющих условию, равно 2