Viết chương trình tính chu vi, diện tích của hình chữ nhật. Với chiều dài, rộng nhập vào từ bàn phím. Viết chương trình tính chu vi, diện tích của hình vuông, với cạnh hình vuông nhập từ bàn phím.

câu 1: 

program oken;

uses crt;

var dai,rong:longint;

begin

clrscr;

write('nhap chieu dai: '); readln(dai);

write('nhap chieu rong: '); readln(rong);

writeln('chu vi hinh chu nhat: ',(dai+rong)*2,'cm');

writeln('dien tich hinh chu nhat: ',dai*rong,'cm^2');

readln;

end.

câu 2:

program oken;

uses crt;

var dai:integer;

begin

clrscr;

write('nhap canh cua hinh vuong: '); readln(dai);

writeln('chu vi hinh vuong: ', dai*4,'cm');

witeln('dien tich hinh vuong: ',dai*dai,'cm^2');

readln;

end.

 program cvdt;

uses crt;

var a,b,cv,dt:integer;

begin

clrscr;

writeln('Hay nhap hai canh hinh chu nhat');readln(a,b);

cv:=(a+b)*2;

dt:=a*b;

writeln('Chu vi hinh chu nhat la ',cv);

writeln('Dien tich hinh chu nhat la ',t);

eadln;

end;