Даны три целых числа a, b, c. найдите среднее арифметическое их квадратов

Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.