Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся

program aver;var s, n, k :integer;beginn:= 1; // значение числа для входа в цикл whiles:= 0; // сумма чисел, удовлетворяющих условиюk:= 0; //счетчик чиселwriteln (\'Введите серию чисел,\');writeln(\'заканчивая ввод каждого числа нажатием на Enter\');while (n <> 0) and (k < 1000) do beginread(n);if n > 30000 then beginwriteln(\'Число не должно быть больше 30000\');read(n);end;if (n mod 10 = 4) and (n mod 6 = 0) then s:= s + n; k:= k + 1;end;writeln(\'сумма = \', s)end.