const max = 100; var i, length1, length2 : longint; s1, s2 : string[max]; begin s1 := 'I have a dream.'; s2 := 'I Have A Dream.'; length1 := length(s1); length2 := length(s2); for i := 1 to length1 do if (s1[i] >= 'a') and (s1[i] <= 'z') then s1[i] := chr(ord(s1[i]) - ord('a') + ord('A')); for i := 1 to length2 do if (s2[i] >= 'a') and (s2[i] <= 'z') then s2[i] := chr(ord(s2[i]) - ord('a') + ord('A')); if s1 = s2 then writeln('=') else if s1 > s2 then writeln('>') else writeln('<'); end.
输出:1