( HÌNH NHÌN RÕ, ĐẦY ĐỦ, ĐỘ SÁNG TỐT )1 FILE HÌNH ĐOẠN CODE1 FILE HÌNH KẾT QUẢ SAU KHI RUN CHẠY CHƯƠNG TRÌNH làm pascal ạ,mik sắp đi học rồi

ĐOẠN CODE VÀ SAU KHI KHỞI ĐỘNG CHƯƠNG TRÌNH  NÈ:

uses crt;

var a, b, cv, s : integer; f1 : text;

begin

clrscr;

assign(f1, 'CV.inp'); rewrite(f1);

write('Nhap chieu dai hinh chu nhat : '); readln(a);

writeln(f1, 'Chieu dai hinh chu nhat = ', a);

write('Nhap chieu rong hinh chu nhat : '); readln(b);

writeln(f1, 'Chieu rong hinh chu nhat = ', b);

cv := (a + b) * 2;

s := a * b;

writeln(f1, 'Chu vi = ', cv);

writeln(f1, 'Dien tich = ', s);

close(f1);

readln

end.