Mik gửi banjtrong ảnh câu  C ạ

CÒn 2 câu kia mik ko bt làm 

diemtrungbinh = int(input("Nhập số điểm trung bình môn toán"))
if (diemtrungbinh > 8):
    print("Bạn được loại giỏi")
elif (diemtrungbinh < 8):
    print("bạn không được loại giỏi môn toán")

  

XĐ:                

Inp:nhập điểm trung bình môn toán                          

Out: Bạn A là hsg hay là ko phải hsg                  

Thuật toán: Bn xem hình ạ               

Vt chg trình:                             

uses crt;                           

var a:integer;                                            

begin                   

write('nhap diem trung binh toan:');readln(a);             

if a>=8 then writeln('Bn A la hsg') else writeln('Bn A ko phai la hsg');               

readln;                    

end.