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

program zz1;

var x, y, z, k, s:integer;

begin

writeln ('Введите число х'); / /вводим первое число

read (x);

writeln ('Введите число y'); / /вводим второе число

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; / /проверяем, если второе число нечетное и делится на три, то считаем его и прибавляем к сумме

if (z mod 2 = 1) and (z mod 3 = 0) then begin k:=k+1; s:=s+z; end; / /проверяем, если третье число нечетное и делится на три, то считаем его и прибавляем к сумме

writeln ('количество нечетных и делящихся на три чисел = ', k); / /выводим ответ

writeln ('сумма нечетных и делящихся на три чисел = ', s);

end.