Hãy viết một chương trình bằng ngôn ngữ lập trình pascal nhập vào từ bàn phím chiều dài và chiều rộng hình sự của một hình chữ nhật và tính diện tích

uses crt;

var cn:text;

d,r,dt:real

begin

clrscr;

write(‘nhap chieu dai: ‘);readln(d);

write(‘nhap chieu rong: ‘);readln(r);

dt:=d*r;

assign(cn,’D:\ra.out’);

rewrite(cn);

write(cn,’dien tich hinh chu nhat: ‘,dt:1:2);

close(cn);

readln;

end.