The best of team - Sakura

Program Dientich_chuvi_hinhchunhat ;

Var Chuvi,dientich,a,b : integer ;

Begin

         Write ( 'Nhap a = ' ) , readln ( a ) ;

         Write ( 'Nhap b = ' ) , readln ( b ) ;

         Chuvi := ( a + b ) *2

         Dientich := a * b

         Writeln ( ' Chu vi của hình chữ nhật là : ' , chuvi ) ;

         Writeln ( ' Diện tích của hình chữ nhật là : ' , dientich ) ;

         Readln 

End.

program bt;

var

       a,b,CV,DT:integer;

begin

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

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

       CV:=(a+b)*2;

       DT:=a*b;

       writeln('Chu vi la: ',CV);

       write('Dien tich la: ',DT);

       readln;

end.

#Ban_co_the_lam_tat_hon_bang_cach_tinh_CV_va_DT_trong_luc_write_luon

#Chuc_ban_hoc_tot

#Co_gi_khong_hieu_ban_hoi_lai_nhe