Uses crt; Var a,b,c:longint ; begin Clrscr; Write('Nhap so a= '); Readln(a); Write('Nhap so b= '); Readln(b); Write('Nhap so c= '); Readln(c); If (a>b) and (a>c) then write('So lon nhat la: ',a) else If (b>a) and (b>c) then write('So lon nhat la: ',b) else write('So lon nhat la: ',c); Readln; End. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé!Thanks :333 *p/s: Hỏi và đáp,comment bên dưới!
