program ct;

uses crt;

var a,b:real

cv,s:real;

begin

clrscr;

write('nhap a.b: ');readln(a,b);

cv:=(a+b)*2;

s:=a*b;

writeln('cv',cv:5:3);

writeln('s',s:5:2);

readln;

end.

a)

- Biến a lưu chiều rộng

- Biến b lưu chiều dài

- Khai báo : var a, b : integer;

b) 

- Biến cv lưu giá trị chu vi 

- Biến s lưu giá trị diện tích

- Khai báo : var cv, s ; integer;

c)

- Nhập giá trị cho a và b : readln(a, b);

- Gán giá trị cho cv và s : cv := (a + b) * 2; s := a * b;

* Viết chương trình hoàn chỉnh :

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap hai canh a va b : '); readln(a, b);

cv := (a + b) * 2;

s := a * b;

writeln('chu vi hinh chu nhat : ', cv);

writeln('dien tich hinh chu nhat : ', s);

readln

end.