С8 по 20-ое! , решение с объяснением

аудитория интернета стремительно растет – дети, подростки, молодежь составляют ее значительную часть. Сейчас уже почти каждый третий ребенок в нашей стране выходит в интернет, и чем старше подростки, тем выше среди них доля «интернетчиков». Сегодня детям доступно то, что лет пятнадцать назад было под силу лишь профессионалу или даже государству – создать собственную телестудию, получить картинку или музыку из-за тридевяти земель, поуправлять собственным мульт фильмом. Во «взрослом» интернете, кроме этого, осуществляют платежи, потребляют электронные госуслуги, производят и продают контент. Через интернет дети и подростки открывают для себя мир, формируют собственную личность. Интернет дает пользователю огромные возможности как высокотехнологичный источник коммуникации, как инструмент поиска и получения информации. Для того чтобы эффективно использовать этот инструмент, нужны как умения обращаться с ним, так и определенный жизненный опыт, позволяющий не захлебнуться в океане неограниченных возможностей интернета, вовремя разглядеть подводные камни, рифы и водовороты виртуального пространства. С развитием интернета резко возросло число тех, кто использует его возможности в неблаговидных целях. Хорошо знакомые следователям и гражданам виды преступлений перешли в сеть, появились новые виды преступлений, порожденные интернетом

Удивляюсь, как она  у меня заработала)) хаха

program example;
var x,y,z,a,b,c,i,k,l:integer;

begin
writeln ('Введите три числа');
write ('x = '); readln (x);
write ('y = '); readln (y);
write ('z = '); readln (z);

if ((x mod 3) or (x mod 2)) =0
then i:=x else i:=0;
if i<>0 then a:=1;

if ((y mod 3) or (y mod 2)) =0
then k:=y else k:=0;
if k<>0 then b:=1;

if ((z mod 3) or (z mod 2)) =0
then l:=z else l:=0;
if l<>0 then c:=1;

writeln ('Количество четных чисел, делящихся на три, равно ',a+b+c);
writeln ('Сумма четных чисел, делящихся на три, равна ',i+k+l);

end.