Question

=Ввести три целых числа с клавиатуры. Найти их произведение, сумму и среднее арифметическое.

Answer 1

var
    a, b, c: integer;

begin
    read(a, b, c);
    writeln('P = ',a * b * c);
    writeln('S = ',a + b + c);
    writeln('A = ',(a + b + c) / 3);
end.