pascal;输入3个数计算平均值和乘积

program sdg;
var
i,j,a,b,c:integer;
begin
read(a,b,c); 读入这3个数
i:=a+b+c; 计算平均值赋予i
j:=a*b*c; 计算乘积，赋予j
writeln(i,j:5); 写出i，j
end.

var a,b,c,avg,t:real;
begin
read(a,b,c);
avg:=(a+b+c)/3;
t:=a*b*c;
writeln(avg:0:0);
writeln(t:0:0);
end.

program a;
var a,b,c,d:integer;
e:real;
readln(a,b,c);
e:=(a+b+c)/3;
d:a*b*c;
writeln(e);
writeln(d);
end.