uses crt;

var a,b,CV,S:integer;       khai báo cạnh a,b và CV,S

begin

write('nhap a: ');readln(a);                nhập a,b từ bàn phím

write('nhap b: ');readln(b);

CV:=(a+b)*2;              tính chu vi diện tích

S:=a*b;                                            

writeln('Chu vi: ',CV);            in ra màn hình giá trị các biến

writeln('Dien tich: ',S);

readln;

end.

1)         program chu_nhat;

2)         uses crt

3)         var a, b, cv, s : real;

4)         begin

5)         clrscr;

6)         write('nhap chieu dai canh a :');readln(a);

7)         write('nhap chieu dai canh b :');readln(b);

8)         cv := (a + b)*2;

9)         s := a*b;

10)       writeln('chu vi hinh chu nhat la :', cv:8:2);

11)       writeln('dien tich hinh chu nhat la :', s:8:2);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

a) Dòng 3

b) Dòng 3

c) Dòng 4 - 11 :

+ nhập giá trị của các kích thước : dòng 6, 7

+ tính chu vi và diện tích : dòng 8, 9

+ in kết quả : dòng 10, 11

d) nhấn phím F2 để lưu chương trình

+ s :8 : 2 và cv :8: 2 => làm tròn kết quả lấy hai chữ số sau thập phân