2 câu trả lời
Program NhatNgu;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap a,b: '); Readln(a,b);
If (a>b) then Write('Max = ',a)
Else
If (a<b) then Write('Max = ',b)
Else Write('Max = ',a);
Readln
End.
uses crt;
var a,b:longint;
begin
clrscr;
write('a,b=');readln(a,b);
write('Max= ');
if a>b then write(a) else write(b);
readln;
end.
