begin comment two strings less/more comparison; string (20) s1, s2; boolean b; s1 := "abc"; s2 := "abcd"; b := s1 < s2; write(b); b := s1 > s2; write(b); s2 := "123"; b := s1 < s2; write(b); b := s1 > s2; write(b); end.