Написать программу вывода на экран количество чисел кратных 3, окончание ввода ноль (0)

program zvvz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое число последовательности

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

if (x mod 3 = 0) then y:=y + 1; / / проверяем, если число последовательности кратное трем, то считаем его

read (x); / / вводим очередное число последовательности

end;

write (' Количество чисел последовательности кратных трем = ', y); / / выводим полученный ответ

end.