... hinh ban nguyet la:’ , r*r*3.14/2); Readln; End Câu 8: Viết chương trình nhập vào hai số tính tổng, tích, hiệu, thương, div, mod Program Cacpheptinh; Uses Crt; Var x, y: Integer; Begin Clrscr; ... Clrscr; Write(‘Nhap dai canh a=’);Read(a); Write(‘Dien tich hinh vuong la:’ , a*a); Readln; End Câu 5: Viết chương trình tính diện tích hình chữ nhật Program Dientichhinhchunhat; Uses Crt; Var ... chieu dai hinh chu nhat b=’);Read(b); Writeln(‘Dien tich hinh chu nhat la:’ , a*b); Readln; End Câu 6: Viết chương trình tính diện tích hình tròn Program Dientichhinhtron; Uses Crt; Var r: Integer;...