Viết thủ tục tính thể tích hình hộp, chu vi hình chữ nhật

Tính hình hộp

program hinh;

uses crt;

var a,b,d,k: real;

begin

writeln('nhap cac canh a,b,c : ');    readln(a,b,c);

k:=a*b*c;

writeln('dien tich hinh hop la: ',k);

readln;

end.

.

.

.

chu vi hình chữ nhật

program from_saymethesixman102;

uses crt;

var b,a,c : real;

begin

write('nhap chieu dai, chieu rong: ');             readln(a,b);

c=2*a+2*b;

writeln('chu vi hinh chu nhat la: ',c);

readln;

end.

Hình hộp chữ nhật: 

Program BTH;
Uses Crt;
var a,b,c,d:longint;
procedure BTH;
Begin
d:=a*b*c;
end;
Begin
clrscr;
Write('Nhap chieu dai: ');readln(a);
Write('Nhap chieu rong: ');readln(b);
Write('Nhap chieu cao: ');readln(c);
BTH;
Write('The tich hinh hop chu nhat la: ',d);
readln;
End.

Chu vi hình chữ nhật:

program BTH;
uses crt;
var a,b,c:longint;
procedure BTH;
Begin
c:=(a+b)*2;
end;
Begin
clrscr;
Write('Nhap chieu dai: ');readln(a);
write('Nhap chieu rong: ');readln(b);
BTH;
writeln('Chu vi hinh chu nhat la: ',c);
readln;
End.