Bài 3:

program bai3;

var

       a,b,c,CV:integer; P,DT:real;

begin

        write('Nhap ba canh: ');readln(a,b,c);

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

        begin

                  writeln('La ba canh cua tam giac');

                  CV:=a+b+c; P:=CV/2; DT:=sqrt(P*(P-a)*(P-b)*(P-c));

                  writeln('Chu vi la: ',CV,' Dien tich la: ',DT:5:2);

                  if (a=b) and (b=c) then write('La tam giac deu') else

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

                  if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write('La tam giac vuong');

     end else write('Khong la ba canh cua tam giac');

     readln;

end.

#Ban_chay_thu_nha_chu_lo_co_sai_o_phan_kiem_tra_loai_tam_giac

Bài 4:

program bai4;

var

             a,b:integer;

begin

           write('Nhap a: '); readln(a);

           write('Nhap b: '); readln(b);

           if a>b then

           begin

                    c:=a; a:=b; b:=c; 

                    write('a= ',a,' va b= ',b);

            end else write('a khong lon hon b');

            readln;

end.

#Bai_nay_minh_khong_hieu_de_lam_nen_minh_chi_lam_nhu_vay_thoi

Bài 5:

program bai5;

var

           h,BMI:real; w:inteher;

begin

            write('Nhap can nang: '); readln(w);

            write('Nhap chieu cao: '); readln(h);

            BMI:=w/(h*h);

            if BMI < 18.5 then write('Gay') else

            if (18.5 < BMI) and (BMI < 25) then write('Binh thuong') 

            else if BMI > 25 then write('Beo');

            readln;

end.

#Ban_co_the_khai_bao_kieu_du_lieu_khac_nhe

#Chuc_ban_hoc_tot_nhe