var 
  s1: string := 'a';
  s2: string := 'b';
    
begin
  Writeln(s1<s2);
  Writeln(s1<=s2);
  Writeln(s1>s2);
  Writeln(s1>=s2);
  Readln;
end.