=> uses crt; khai báo thư viện => thiếu clrscr; để xóa màn hình 

program chu_vi_hinh_chu_nhat;

uses crt;

var a, b, P : integer;

Begin

clrscr;

writeln('chieu dai a =');

readln(a);

writeln('chieu rong b =');

readln(b);

P := (a + b) * 2;

writeln('chu vi hinh chu nhat P =', P);

readln

end.

Đúng nhưng mà nếu bạn sử dụng clrscr; thì sẽ đẹp hơn và dễ nhìn hơn nha.

Sửa:

program chu_vi_hinh_chu_nhat;
uses crt;
var a, b, P: integer;
begin
clrscr;
    writeln('Chieu dai a: '); readln(a);
    writeln('Chieu rong b: '); readln(b);
    P:=(a + b) * 2;
    writeln('Chu vi hinh chu nhat P: ', P);
readln;
end.