СРОЧНО!! ПОМОГИТЕ, ПОЖАЛУЙСТА! ИНФОРМАТИКА! ДАЮ МНОГО БАЛЛОВ!!!

Среди N целых чисел определить кол-во четных и некратных трем.

ЯЗЫК: C++

ЗАРАНЕЕ ГОРОМНОЕ СПАСИБО!!!​

BEGIN

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

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

writeln('Введите а');readln(a);i := 0;

writeln('Введите а');readln(a);i := 0;k := 1;

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) do

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobegin

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;

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;

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);

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('Введите а');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, '- количество четных чисел, кратных трём.');

END.