Program BTT; Uses crt; Var a,b: qword; Begin Clrscr; Write('Nhap a, b: '); Readln(a,b); If a>b then Write('a>b') ELse If b>a then Write('b>a') Else Write('a=b'); Readln End.
uses crt; var a,b:longint; begin clrscr; write('Nhap a,b: ');readln(a,b); if a>b then write('a>b'); if a<b then write('a<b'); if a=b then write('a=b'); readln end.