По информатике, ! найти средне трех чисел

Program H4;
var a,b,c:Integer;
Begin
Writeln('Введите 3 числа');
Read(a,b,c);
Writeln(sqrt(a*b*c):0:0);
readln;
end.

Ввод чисел через пробел
:0:0 означает округление числа до целой части