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.
Ну вообще объектом изучения в информатике является-информационные процессы,на этого тут нет. Из этого следует,что правильный ответ информация