Bài 1: vào 2 hình . In ra màn hình tích và chu vi nó.Program hcn;Uses crt;Var a,b,s,c:real;Begin Clrscr; Writeln(‘Tinh chu vi va dien tich hcn’); Write(‘nhap chieu dai:’); Readln(a); Write(‘nhap chieu rong:’); Readln(b); S:=a*b; C:=(a+b)*2; Writeln(‘Dien tich hinh chu nhat la:’,S); Writeln(‘Chu vi hinh chu nhat la:’,C); Readln;End.Bài 2:vào bán kính hình tròn.In ra màn hình tích và chu vi nó.Program hinh_tron;Uses crt;Var R, S, P: real;Const pi=3.14;Begin Clrscr; Writeln(‘Dien tich va chu vi hinh tron:’); Write(‘nhap ban kinh:’); Readln(R); S:=pi*R*R; P:=2*pi*R; Writeln(‘dien tich cua hinh tron la:’,S); Writeln(‘chu vi cua hinh tron la:’,P); Readln;End.Bài 3 : Tính tam giác: vào ba a,b,c kì. tra xem nó có là độ dài ba hay không, không thì in ra màn hình ` Khong la ba canh cua mot tam giac`. , thì in tích, chu vi tam giác ra màn hình.Program Tam_giac;Uses crt;Var a,b,c,s,p:real;Begin Clrscr; Writeln(‘bai toan tam giac’); Write(‘nhap a=’); Readln(a); Write(‘nhap b=’); Readln(b); Write(‘nhap c=’); Readln(c); If ((a+b)>c)...