B3:

uses crt;

var a:string;

      b,c,d,S:integer;

begin

write('nhap ho va ten:');readln(a);

write('nhap diem toan:');readln(b);

write('nhap diem anh:');readln(c);

write('nhap diem van:');readln(d);

S:=(b+c+d)/3;

writeln(a);

writeln('DTB=',S);

if S>=9 then writeln('HSG') else if S>=7 then writeln('HSK') else if S>=5 then writeln('HSTB') else writeln('HSY');

readln;

end.

B4:

uses crt;

var a,b:integer;

begin

write('nhap thang:');readln(a);

write('nhap nam:');readln(b);

if (a=1) or (a=3) or (a=5) or (a=7) or (a=8) or (a=10) or (a=12) then writeln('co 31 ngay')

else if (a=4) or (a=6) or (a=9) or (a=11) then writeln('co 30 ngay');

if (a=2) and (b mod 4)=0 then writeln('Co 29 ngay') else if a=2 then writeln('Co 28 ngay'); 

readln;

end.

a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))

if (a+b>c) & (b+c>a) & (a+c>b) & (a>0) & (b>0) & (c>0):
    if (a==b)&(b==c):
        print ("\nĐây là tam giác đều")
    elif (a==b)& (a!=c) | (a==c)&(a!=b) | (b==c) & (b!=a):
            print ("\nĐây là tam giác cân")

else:
        print ("\nKhông Tạo Thành Tam Giác")

bài 3,4: trong ảnh