Составить программу, которая по данной последовательности n целых чисел выводит на экран только те, которые кратны 3.​

Program Zadacha;

uses crt;

var i, k, a:integer;

BEGIN

writeln('Введите а');

readln(a);

i := 0;

k := 1;

while (a<>0) and (k < 1000) do

begin

if (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;

k := k + 1;

readln(a);

end;

writeln(i, '- количество четных чисел, кратных трём.');

END.