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

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