Даны три целых числа 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.