P_01_2.pas

var x, y, z : integer;

begin
writeln('Введите x, y, z через пробел:');
readln(x, y, z);

writeln('Сумма = ', x + y + z);
writeln('Произведение квадратов = ', x*x * y*y * z*z);
writeln('Среднее арифметическое = ', (x + y + z) / 3);
end.