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
