program *название программы*;
var a,b,c,S,P:inreger; Sr:real;
begin
a:=10;
b:=25;
c:=35;
S:=a+b+c;
P:=a*b*c;
Sr:=S/3;
Writeln('Сумма=',S,', произведение=',P,', среднее арифметическое=',Sr);
end.
program *название программы*;
var a,b,c,S,P:inreger; Sr:real;
begin
a:=10;
b:=25;
c:=35;
S:=a+b+c;
P:=a*b*c;
Sr:=S/3;
Writeln('Сумма=',S,', произведение=',P,', среднее арифметическое=',Sr);
end.