паскаль. Дано натуральное число n. Найти среднеквадратичное значение цифр этого числа. Среднеквадратичное значение - величина, равная корню квадратному из суммы квадратов цифр.

Program hhh54;var n: longint;  x: real;begin  x:=0;  read (n);  while n <> 0 do    begin      x:=x + sqr(n mod 10);      n:=n div 10;    end;  x:=sqrt(x);  write (x:0:3);end.