Найти среднее арифметическое и среднее трех чисел.

Program enot;
Var a,b,c: integer;
s,p: real;
begin
read(a,b,c);
s:=(a+b+c)/3;
p:= sqrt(a*b*c);
write('srednee ariphmeticheskoe = ', s:4:2, '; srednee geometricheskoe = ', p:4:2);
end.