Question

найти сумму чисел x,y,z если они равны между собой,иначе найти их произведение

Answer 1

var x,y,z: integer;

begin

writeln ('Введите числа x,y,z ');

readln (x,y,z);

writeln ('Сумма равна ',x+y+z);

if ((x+y+z) mod 2 =0) then

       writeln ('Сумма четная,произведение равно ',x*y*z)

   else

       writeln ('Сумма нечетная');