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.

Program chuong_trinh;

Uses crt;

Var a,b,c,max: integer;

Begin

Clrscr;

Write('a=');        readln(a);

Write('b=');        readln(b);

Write('c=');         readln(c);

Max:=a;

If max<b then max:=b;

If max<c then max:=c;

Writeln (' so lon nhat la:',max);

Readln;

End.

Bài ở dưới là bài ktr tin của mình í;-; bạn kham khảo~