Viết chương trình Pascal tính diện tích của một hình chữ nhật có chiều dài AB = 20 cm; chiều rộng BC = 15 cm bằng khai báo hàm (function)

Program HCN;

uses crt;

var a,b,CV,S:real;

begin

clrscr;

writeln(‘nhap chieu dai:’);readln(a);

writeln(‘nhap chieu rong:’);readln(b);

CV:=(a+b)*2;

S:=a*b;

writeln(‘chu vi hinh chu nhat la’,CV);

writeln(‘dien tich hinh chu nhat la’,S);

readln;

end.