program zz1;
var a, b, r, c:integer; //задаем переменные целого типа
begin
write(' введите первое число '); // вводим с клавиатуры первое число
read(a);
write(' введите второе число '); // вводим с клавиатуры второе число
read(b);
write(' введите третье число '); // вводим с клавиатуры третье число
read(c);
r:=a + b + c; // вычисляем сумму заданных чисел по формуле
writeln(' сумма трех заданных чисел = ', r); // выводим ответ
writeln(' среднее арифметическое трех заданных чисел = ', r/3); // выводим ответ
r:=a * b * c; // вычисляем произведение заданных чисел по формуле
write(' произведение трех заданных чисел = ', r); // выводим ответ
end.