viết chương trình pascal tính diện tích và chu vi toàn phần của hình hộp chữ nhật

Program giangtri;

Uses crt;

Var d,r,S:real;

Begin

Write (‘Chieu dai cua hinh hop’);

Readln (d);

Write (‘Chieu rong cua hinh hop’);

Readln (r);

S:=((d+r)*2*4+(d*r*2);

Write (‘Dien tich hinh hop la’,S);

Readln;

End.

P/s: Chu vi toàn phần là j ạ ?