Даны три числа x, y и z. Найти: количество и сумму четных чисел, делящихся на 3.…

Удивляюсь, как она у меня заработала) хаха program example; var x,y,z,a,b,c,i,k,l: integer; beginwriteln ('Введите три числа'); 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.