String comparison: Difference between revisions

Content added Content deleted
Line 37: Line 37:
begin
begin
Ada.Text_IO.Put_Line
Ada.Text_IO.Put_Line
(""" & A & """ and """ & B & """: " &
("""" & A & """ and """ & B & """: " &
(if A = B then
(if A = B then
"equal, "
"equal, "