вывести сумму чисел x+y+z,определить четная ли она, если четная,то найти значение произведения x*y*z

Могу заменить на транслит.Нужно?

Добавил

Англ транслит

program lab2;varx,y,z,s,p:integer;beginwriteln('x=');readln(x);writeln('y=');readln(y);writeln('z=');readln(z);s:=x+y+z;writeln('S=',s);beginif (S mod 2=0) then p:=x*y*z;end;writeln('p=',p);end.

Программа верная.

Готово...............................