Làm 2 kiểu luôn nha :D
Hàm:
uses crt;
var dai,rong:integer;
function chuvi(a,b:integer):longint;
begin chuvi:=(a+b)*2; end;
begin
clrscr;
write('Nhap chieu dai: '); readln(dai);
write('Nhap chieu rong: '); readln(rong);
write('Chu vi hinh chu nhat la: ',chuvi(dai,rong));
readln
end.
Thủ tục:
uses crt;
var dai,rong:integer;
procedure chuvi(a,b:integer);
var cv:longint;
begin
cv:=(a+b)*2;
write('Chu vi hinh chu nhat la: ',cv);
end;
begin
clrscr;
write('Nhap chieu dai: '); readln(dai);
write('Nhap chieu rong: '); readln(rong);
chuvi(dai,rong);
readln
end.