* Cách 1:
uses crt;
var a,b,c,max:longint;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('So lon nhat: ',max);
readln
end.
* Cách 2:
uses crt;
var a,b,c:longint;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
if(a>b)and(a>c)then writeln('So lon nhat: ',a);
if(b>a)and(b>c)then writeln('So lon nhat: ',b);
if(c>a)and(c>b)then writeln('So lon nhat: ',c);
readln
end.
