Mik chỉ giúp bạn được bài 3 thôi ạ

hoten = str(input("nhap ho ten thi sinh:"))
toan = float(input("nhap diem mon toan:"))
van = float(input("nhap diem mon van:"))
anh = float(input("nhap diem mon anh:"))
dtb = (toan + van + anh)/3
if dtb >= 9.0:
    print("loai gioi")
elif dtb <= 7.0 and dtb < 9.0:
    print("loai kha")
elif dtb <= 5.0 and dtb < 7.0:
    print("trung binh")
elif dtb < 5.0:
    print("yeu")

Bài 1 : 

uses crt;

var m, n : integer;

begin

clrscr;

write('nhap so nguyen thu nhat :');readln(m);

write('nhap so nguyen thu hai :');readln(n);

if (m mod n = 0) or (n mod m = 0) then

writeln('hai so la uoc cua nhau')

else writeln('hai so khong la uoc cua nhau');

readln

end.

Bài 2 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba canh tam giac :');readln(a, b, c);

if (a + b > c) and (b + c > a) and (c + a > b) then 

begin

if (a = b) or (b = c) or (a = c) then writeln('tam giac can') else 

if (a = b) and (b = c) and (a = c) then writeln('tam giac deu')

else write('tam giac thuong');

end

else writeln('khong la 3 canh tam giac');

readln

end.

Bài 3 :

uses crt;

var ten : string; tb, t, v, a : real;

begin

clrscr;

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

write('nhap siem van, toan va anh van :');readln(v, t, a);

tb := (v + t + a)/3;

if tb >= 9.0 then writeln('diem trung binh : ', tb:3:1 ,'; Xep loai : Gioi');

if (tb < 9.0) and (tb >= 7.0) then

writeln('diem trung binh : ', tb:3:1 ,'; Xep loai : Kha');

if (tb < 7.0) and (tb >= 5.0)

then writeln('diem trung binh : ', tb:3:1 ,'; Xep loai : Trung binh');

if tb < 5.0 then writeln('diem trung binh : ', tb:3:1 ,'; Xep loai : Yeu');

readln

end.