Progam Pham_Quang_Huy;

uses crt

var chd, chr, chuvi, dientich:read;

begin

clrscr;

writeln<‘nhap chieu dai hinh chu nhat:’);

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr) chuvi=(chd+chr)*2;

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2);

writeln(‘Dien tich hinh chu nhat la:, dientich:10:2);

readln;

end.

sửa lại:

Program hinh_chu_nhat;
uses crt;
var chd, chr, chuvi, dientich:real;
begin
clrscr;
writeln('nhap chieu dai hinh chu nhat:');
readln(chd);
writeln('nhap chieu rong hinh chu nhat:');
readln(chr);
chuvi:=(chd+chr)*2;
dientich:=chd*chr;
writeln('Chu vi hinh chu nhat la:',chuvi:10:2);
writeln('Dien tich hinh chu nhat la:', dientich:10:2);
readln;
end.

đây nhá bạn

Progam hinh chu nhat;

uses crt        // Thiếu dấu ; ở cuối.

var chd, chr, chuvi, dientich:read; // Không có kiểu dữ liệu read;

begin

clrscr;

writeln<‘nhap chieu dai hinh chu nhat:’);  // Sai dấu mở ngoặc.

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr) chuvi=(chd+chr)*2;  // Sau readln(chr) thiếu dấu ;

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2);  // thiếu dấu , trước chuvi:10:2.

writeln(‘Dien tich hinh chu nhat la:, dientich:10:2); // thiếu dấu ' sao ‘Dien tich hinh chu nhat la:

readln;

end.

Sửa lại:

uses crt;

var chd, chr, chuvi, dientich:real; 

begin

clrscr;

writeln(‘nhap chieu dai hinh chu nhat:’);  

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr); chuvi=(chd+chr)*2; 

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’,chuvi:10:2);  

writeln(‘Dien tich hinh chu nhat la:', dientich:10:2); 

readln;

end.