{$codepage UTF8} VAR cad1,cad2:string; BEGIN cad1:='antonio'; cad2:='alberto'; Writeln('cad1:=',cad1); Writeln('cad2:=',cad2); Writeln('ordinal n = ',ord('n')); Writeln('ordinal n = ',ord('l')); Writeln('cad1cad2=',cad1>cad2); Writeln('cad1<>cad2=',cad1<>cad2); Writeln('cad1=cad2=',cad1=cad2); Writeln('cad1<=cad2=',cad1<=cad2); Writeln('cad1>=cad2=',cad1>=cad2); Readln END.