Program   Max;
Uses   crt;
Var   a,b,c:integer;
Begin
         clrscr;
         writeln('CT tim gia tri lon nhat');
           write('Nhap so a= '); readln(a);
           write('Nhap so b= '); readln(b);
           write('Nhap so c= '); readln(c);
         if a>b and a>c then write(a,' la so co gia tri lon nhat');
         if b>a and b>c then write(b,' la so co gia tri lon nhat');
         if c>a and c>b then write(c,' la so co gia tri lon nhat');
         readln;
End.