Var
a, b, c: real;
begin
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
writeln('Введите третье число ');
readln(c);
writeln('Произведение этих чисел равно ');
writeln(a * b * c);
writeln('Среднее арифметическое этих чисел равно ');
writeln((a + b + c) / 3);
end.