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

program zvvz1;

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

begin

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

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

begin

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

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

end;

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

end.