Ввести три натуральных числа. найти их 'среднее арифметическое, , гармоническое a b c

Program Znanija;
var a,b,c:integer;
begin

readln(a,b,c);

writeln('Среднее арифметическое: ', (a+b+c)/3);
writeln('Среднее геометрическое: ', sqrt(a*b*c));
writeln('Среднее гармоническое: ', 3/((1/a)+(1/b)+(1/c)));

end.