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.