Робота с числами!

[Snake08]

Вам дается натуральное число N. Вы находите сумму квадратов его цифр и получаете новое число. Потом с этим числом проделываем те же самые операции. Какое число вы получите после K таких шагов?
Формат входных данных. ВО входном файле input.txt содержатся натуральные числа N и K, что не превышают 10^9.
Формат исходных данных. В исходный файл output.txt вывести искомое число.
Пример входных и исходных данных.
input.txt
123 3
output.txt
50
Обеснение:123 -> 14 -> 17 -> 50

[alex_fcsm]

var i,n,k:integer;
    f:text;

function Sum(x:integer):integer;
var s:string;
    m,t,code,j:integer;
begin
str(x,s);
m:=0;
for j:=1 to length(s) do
 begin
  val(s[j],t,code);
  m:=m+sqr(t);
 end;
 sum:=m;
end;


begin
assign(f,'c:\1.txt');
reset(f);
read(f,n);
read(f,k);
close(f);
for i:=1 to k do
   n:=Sum(n);
assign(f,'c:\2.txt');
rewrite(f);
write(f,n);
close(f);
end.

[Snake08]

Большое спс человечиское!
Может еще числа Смита поможешь!

[alex_fcsm]

Щас посмотрю....