Xâu nào dài hơn.

PROGRAM CT69;
USES crt;
VAR TB, s1, s2: STRING;
BEGIN
clrscr;
TB:=' dai hon ';
Write('Nhap xau thu nhat: '); Readln(s1);
Write('Nhap xau thu hai: '); Readln(s2);
IF length(s1)>length(s2) THEN write('"',s1,'"',tb,'"',s2,'"') ELSE Write('"',s2,'"',tb,'"',s1,'"');
Readln
END.

Download: http://www.mediafire.com/?96b37bw4x4b0gkp