Program NN; Uses crt; Var a,b: real; Begin Clrscr; Write('Nhap do dai 2 canh: '); Readln(a,b); If a>b then Write('AB dai hon CD') Else If b>a then Write('CD dai hon AB') Else Write('BANG NHAU'); Readln End.
uses crt; var ab,cd:longint; begin clrscr; write('AB,CD= ');readln(AB,CD); if ab=cd then writeln('AB=CD') else if ab>cd then writeln('AB>Cd') else writeln('AB<CD'); readln end.