Viết chương trình sử dụng chương trình con (thủ tục và hàm) thực hiện tính và in ra màn hình chu vi hình chữ nhật biết độ dài các cạnh được nhập từ bàn phím ( mọi người ơi giúp mik với mai kiểm tra rùi cảm ơn nhiều)

program oken;
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);
        writeln('chu vi hinh chu nhat: ',chuvi(dai,rong));
        readln;
end.

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.