BEGIN
<em>writeln('Введите а');</em>
<em>writeln('Введите а');readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) do</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobegin</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;writeln(i, '- количество четных чисел, кратных трём.');</em>
END.