làm 1 bài thoi nha dài quá
câu 2.2:
uses crt;
var a,b,c,d,max: integer;
begin
clrscr;
write ('nhap a,b,c,d: '); readln (a,b,c,d);
if (a>=b) and (a>=c) and (a>=d) then max:=a;
if (b>=a) and (b>=c) and (b>=d) then max:=b;
if (c>=b) and (c>=a) and (c>=d) then max:=c;
if (d>=b) and (d>=c) and (d>=a) then max:=d;
writeln ('so lon nhat: ',max);
readln;
end.
