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.