uses crt; var fo:text;s1,s2:string; BEGIN clrscr; assign(fo,'ketqua.txt');rewrite(fo); readln(s1);readln(s2); if length(s1)<length(s2) then writeln(fo,s2); if length(s1)>length(s2) then writeln(fo,s1); if length(s1)=length(s2) then begin writeln(fo,s1);writeln(fo,s2) end; close(fo); END.
