Program so_lon_nhat;
Uses Crt;
Var a,b,c :Integer;
Begin
Clrscr;
Writeln (‘Hay nhap so a: ’);
Readln (a);
Writenln (‘Hay nhap so b: ’);
Readln (b);
Writeln (‘Hay nhap so c: ’);
Readln (c);
If (a>b) and (a>c )then writeln (‘ a la so lon nhat’);
If (b>a )and (b>c) then writeln (‘b la so lon nhat’);
If (c>a) and (c>b )then writeln (‘c la so lon nhat’);
Readln;
End.