Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin      

Write('Nhap chieu dai:');

readln(a);      

Write('Nhap chieu rong:');

readln(b);      

S := a*b;    

 CV := (a+b)*2;      

Writeln('Dien tich hinh chu nhat la:',S);    

 Writeln('Chu vi hinh chu nhat la:',CV:10:2);  

   readln;

end.

program Dien_tich,Chu_vi

Uses crt ;

Var a,b , Dientich, Chuvi ; Real ;

Begin

Write ('Nhap chieu dai a ') ;

Readln (a) ;

Write ('Nhap chieu dai b') ;

Readln (b) ;

Dien_tich:=a*b ;

Chu_vi:=(a+b)*2 ;

Writeln ( Dien tich chu vi hinh chu nhat la :');

Readln ;

End.

Vote 5 sao giúp mình nhé 😘