Viết chương trình nhập vào ba số nguyên a, b, c. In ra số lớn nhất của 3 số đó.

* 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.