... Hu7Readln(r);cv:= 2*pi*r;dt:=pi*r*r;Wrietln(’chu vi hinh chu nhat: ’, cv:1 0:1 ); {cv:1 0:1 de doc ket qua}Writeln(’dien tich hinh chu nhat: ’,dt:1 0:1 ); ReadlnEnd. Bài 7: Lập chương trình tính và đưa ... a,b,tong,tich,hieu:byte;Begin a:= 9; b:= 10;tong:= b+a;tich:= b*a;hieu:= b-a;writeln(’tong =’,tong:5, ’ tich=’, tich:5, ’hieu=’,hieu);readlnend. Bài 3: Lập chương trình nhập vào chiều dài và chiều rộng ... tinh_tong; a:=12; b:=88; uses crt; begin readln end. s:=a+b; writeln(’tong s=’, s); Var a,b,s:integer; clrscr; Hướng dẫn: Program Tinh_tong;Var a,b,s:integer; Begina:=12; b:=88; s:=a+b; writeln(’tong...