Вывести сумму чисел x+y+z , определить, четная ли она. Если четная, то найти значение произведения x*y*z — Pascal(Паскаль)

var s,x,y,z,m:integer;
begin
read(x,y,z);
s:=x+y+z;
writeln('Сумма x,y,z=',s);
if s mod 2=0 then begin
                   m:=x*y*z;
                   writeln('Сумма четная. Произведение=',m);
                   end
             else writeln('Не четная');
end.