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

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.