{ Bài 9:. Hiện ra màn hình một dãy số nuyên, sao cho số đứng sau bằng tổng bình phương các chữ số của số đứng trước nó. (Số đầu tiên được nhập từ bàn phím, dãy kết thúc khi tìm được số trùng với một số bất kì trong dãy). }
program trso;
uses crt;
var x,n,i,j,d:integer;
a:array[1..100] of integer;
kt:boolean;
begin
clrscr;
writeln;
write('Nhap so can kiem tra: ');readln(n);
kt:=false;
i:=1;
a[i]:=n;
repeat
d:=0;
repeat
x:=n mod 10;
d:=d+sqr(x);
n:=n div 10;
until n=0;
i:=i+1;
for j:=1 to i-1 do if d=a[j] then kt:=true else a[i]:=d;
n:=d;
until kt=true;
for j:=1 to i do write(a[j],' ');
readln
end.