Даны три числа x, y и z. Отыскать: количество и сумму

program zz1;
var x,y,z,k,s:integer;
begin
writeln(Введите число х); //вводим 1-ое число
read(x);
writeln(Введите число y); //вводим 2-ое число
read(y);
writeln(Введите число z); //вводим третье число
read(z);
if (x mod 2 = 1) and (x mod 3 = 0) then begin k:=k+1;s:=s+x;end; //проверяем, если первое число нечетное и делится на три, то считаем его и добавляем к сумме
if (y mod 2 = 1) and (y mod 3 = 0) then begin k:=k+1;s:=s+y;end; //проверяем, если 2-ое число нечетное и делится на три, то считаем его и добавляем к сумме
if (z mod 2 = 1) and (z mod 3 = 0) then begin k:=k+1;s:=s+z;end; //проверяем, если третье число нечетное и делится на три, то считаем его и добавляем к сумме
writeln(количество нечетных и делящихся на три чисел = ,k); //выводим ответ
writeln(сумма нечетных и делящихся на три чисел = ,s);
end.