Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

var    a, i, sum, y : integer;             // объявляем переменные целочисленного типа.begin   a := 1;                                // нужно для выполнения цикла while.   writeln (\'введите последовательность положительных чисел, окончание ввода - число 0:\');   while a <> 0 do                      // начало цикла.      begin        readln (a);                       // считываем число, введенное с клавиатуры.        if ((a mod 3 = 0) and (a mod 5 = 0) and (a <> 0)) then // проверяем кратность числа 3 и 5.           begin               sum := sum + a;            // считаем сумму чисел.               y := y + 1;                    // считаем количество чисел.           end;      end;  write (\'Среднее арифметическое произведение чисел равно: \', round( sum / y, 2)); end.