1) interger viết sai nhé : sửa lại thành integer

2) Quen khai bao dv chuong trinh : uses Crt;

bn sửa xong chạy xem có lỗi mk sửa tiếp

bn chạy theo chương trình này của mk nha

program vi_du;

uses Crt;

var a,b,CV,S : integer;

begin

clrscr;

    Write(' Chieu dai la : '); readln(a);

    Write(' Chieu rong la :'); readln(b);

    S := a*b;

    CV := (a+b)*2;

    Write(' Dien tich hinh chu nhat la :',S);

    Write(' Chu vi hinh chu nhat la :',CV);

readln

end.

    

Sửa lại chương trình:

program Vi_du;

uses crt;

  var a, b, C, S: integer;

begin

  write('Chieu dai a = '); readln(a);

  write('Chieu dai b = '); readln(b);

  S:=a*b;

  C:=(a+b)*2;

  write('Dien tich hinh chu nhat la: ', S);

  write('Chu vi hinh chu nhat la: ', C);

  readln;

end.