program gjdadd;var a,b,c:ansistring;i,la,lb,lc,jw,x:longint;t:char;beginassign(input,'in.txt');reset(input);assign(output,'out.txt');rewrite(output);c:='';readln(a);readln(b);la:=length(a);lb:=length(b);for i:=1 to la div 2 do begin
t:=a;
a:=a[la+1-i]; a[la+1-i]:=t; end;for... |