1

Program sohople;

Uses crt;

Var a: real;

Begin

Clrscr;

Write('nhap a',a); readln(a);

If a>= 3 then writeln('so hop le') 

Else writeln('so khong hop le');

{Cai dang sau khong hop le thi cai dang truoc phai hop le chu nhi?}

Readln

End.

2.

Program soamduong;

Uses crt;

Var x: real;

Begin

Clrscr;

Write('nhap x',x); readln(x);

If x>= 0 then writeln('so duong') 

Else writeln('so am');

Readln

End.

3.

Program diemtb;

Uses crt;

Var dtb: real;

Begin

Clrscr;

Write('nhap diem trung binh',dtb); readln(dtb);

If dtb>= 5 then writeln('Hs da thi dau') 

Else writeln('hs da thi rot ');

Readln

End. 

                         Dương Thiên Vyvy~~~~~~~~~~~~~~                     

Bài này học rùi mờ !

1,

Program B1;

Uses Crt;

Var a:integer;

Begin

Clrscr;

Writeln('Nhap so a: ', readln(a));

If a>=3 then writeln('So hop le') else writeln('So khong hop le');

Readln;

End.

2,

Program B2;

Uses Crt;

Var x:integer;

Begin

Clrscr;

Writeln('Nhap so x: ', readln(x));

If a>=0 then writeln('So duong') else writeln('So am');

Readln;

End.

3,

Program B3;

Uses Crt;

Var DTB:integer;

Begin

Clrscr;

Writeln('Nhap diem trung binh : ', readln(DTB));

If a>=5 then writeln('Hoc sinh da dau') else writeln('Hoc sinh da thi rot');

Readln;

End.

Bài 5 thì mình xin thua nên mod đừng xóa nhé !