Viết chương trình tính diện tích và chu vi hình chữ nhật với chiều dài và chiều rộng nhập vào từ bàn phím.Giúp mik vs,mik đg cần gấp

program Dientichvachuvi;

uses crt;

var a,b:real;

begin

clrscr;

 write('Nhap chieu dai: ');readln(a);

 write('Nhap chieu rong: ');readln(b);

clrscr;

writeln('Dien tich hinh chu nhat la: ',a*b:10:6);

writeln('Chu vi hinh chu nhat la: ',(a+b)*2:10:6);

readln;

end.

`* Pascal:`

`" "`

program dien_tich;

uses crt;

var cd, cr: real;

begin

    clrscr;

    write('Nhap chieu dai: ');

    readln(cd);

    write('Nhap chieu rong: ');

    readln(cr);

    writeln('Chu vi hinh chu nhat: ', (cd + cr) * 2 : 0 : 2);

    writeln('Dien tich hinh chu nhat: ', cd * cr : 0 : 2);

    readln

end.