begin writeln('Введите первое число '); readln(a); writeln('Введите второе число '); readln(b); writeln('Введите третье число '); readln(c); writeln('Произведение этих чисел равно '); writeln(a * b * c); writeln('Среднее арифметическое этих чисел равно '); writeln((a + b + c) / 3); end.
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.