вот на паскале var arif,geo,n:real;
sum,x,y,z:integer;
begin
write('введите x y z:');
read(x,y,z);
sum:=x+y+z;
n:=ln(x)+ln(y)+ln(z);
writeln('сумма:',sum);
if(sum mod 2=0) then
begin
arif:=sum/3;
arif:=Trunc(arif);
writeln('среднее арифмитическое:',arif);
end
else
begin
geo:=sqrt(n);
geo:=Trunc(geo);
writeln('среднее геометрическое:',geo);
end;
end.