USES CRT;VAR F,G
Bài 3:
uses crt;
var f,g:text;
i,code,nho,c,d,tong,e:longint;
s,t,n,b,k:string;
a:array[0..100] of string;
begin
clrscr;
assign(f,'nextpal.inp');reset(f);
assign(g,'nextpal.out');rewrite(g);
readln(f,n);
repeat
s:='1';
t:='';
for i:=1 to length(n)-1 do
s:='0'+s;
for i:=length(n) downto 1 do
begin
val(n[i],c,code);
val(s[i],d,code);
tong:=c+d+nho;
nho:=tong div 10;
if tong>9 then
tong:=0;
str(tong,k);
a[i]:=k;
end;
e:=length(n);
if nho<>0 then
n:='1'
else n:='';
for i:=1 to e do
n:=n+a[i];
t:=t+n[i];
until n=t;
write(g,n);
close(f);
close(g);
end.