Даны три числа x, y и z. Найти: Количество и сумму четных чисел, больших данного z.

program z3; uses crt; var x,y,z,k: byte; s: integer; beginclrscr; write ('Введи x='); readln (x); write ('Введи y='); readln (y); write ('Введи z='); readln (z); if (x>z) and (not (odd (x) then begins: =s+x; k: =k+1; end; if (y>z) and (not (odd (y) then begins: =s+y; k: =k+1; end; writeln ('Сумма четных элементов, больших z равна ',s); writeln ('Кол-во четных элементов, больших z равно ',k); readkeyend.