Viết chương trình tính diện tích hình chữ nhật biết chiều dài gấp 3 chiều rộng

Nhập chiều rộng:

program bai_giai;
uses crt;
var cr:integer;
begin
    clrscr;
    write('Nhap chieu rong: ');  readln(cr);
    write('Dien tich: ',cr*3*cr);
    readln;
end.

Nhập chiều dài:

program bai_giai;
uses crt;
var cd:integer;
begin
    clrscr;
    write('Nhap chieu dai: ');  readln(cd);
    write('Dien tich: ',cd*cd/3:0:2);
    readln;
end.

Nhập chiều rộng:

program bai_giai;
uses crt;
var cr:integer;
begin
    clrscr;
    write('Nhap chieu rong: ');  readln(cr);
    write('Dien tich: ',cr*3*cr);
    readln;
end.

Nhập chiều dài:

program bai_giai;
uses crt;
var cd:integer;
begin
    clrscr;
    write('Nhap chieu dai: ');  readln(cd);
    write('Dien tich: ',cd*cd/3:0:2);
    readln;
end.

cho toi 5 sao nhe.