chương trình:

Program bai_giai;
uses crt;
var a,b,cv:longint; 
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  cv:=(a+b)*2;
  write('chu vi la:',cv);
 readln;
end.

bạn copy phần trên thôi chứ dưới đây mình giải thích các câu lệnh

Program bai_giai;  ⇒  khai báo tên chương trình
uses crt;  ⇒  khai báo thư viện
var a,b,cv:longint;  ⇒  khai báo biến cần dùng
begin  ⇒  bắt đầu chương trình
 clrscr;  ⇒  xoá màn hình kết quả
  write('chieu dai hinh chu nhat la:');readln(a);  ⇒  nhập chiều dài hình chữ nhật
  write('chieu rong hinh chu nhat la:');readln(b);  ⇒  nhập chiều rộng hình chữ nhật
  cv:=(a+b)*2;  ⇒  công thức tính chu vi hình chữ nhật
  write('chu vi la:',cv);  ⇒  xuất chu vi hình chữ nhật
 readln;  ⇒  màn hình đen sẽ xuất hiện cho đến khi nhấn enter
end.  ⇒  kết thúc chương trình

program chu_vi_hcn;

uses crt;

var a,b:real;

begin

clrscr;

write('nhap 2 canh a,b: ');readln(a,b);

write('chu vi la: ',((a+b)*2):5:2);

readln;

end.