Дано 3 значное число. Найдите 1) Среднее арифметическое и его цифры. 2) Сумму квадратов его цифр.

Var n, sum, sum2, d, ind, i, j:integer; sred : double;

begin

Write ('n') ;

Readln (n) ;

d:=1;

ind:=3;

sum:=0; sum2:=0; sred:=0;

for i:=0 to ind-1 do

begin

sum:=sum + (n div d) mod 10;

sred:=sum/3;

sum2:=sum2 + sqr ((n div d) mod 10) ;

d:=10*d;

end;

Writeln ('suma ', Sum) ;

Writeln ('Sum 2 ', sum2) ;

writeln ('Sred ', sred:0:5) ;

//Writeln ('вывод цифр') ;

d:=1;

for i:=0 to ind-1 do

begin

writeln ((n div d) mod 10) ;

d:=10*d;

end;

readln;

end.