BÀI 1
uses crt;
var a,b,c,min,max:integer;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
max:=a ; min:=a;
if b>a then max:=b
else if c>b then max:=c;
if b<a then min:=b
else if c<b then min:=c;
writeln('so lon nhat la:',max);
writeln('so be nhat la:',min);
readln
end.
Bookmarks