Program H     C_N;

`->` Tên chứa khoảng trắng

 `=>` Program H_C_H ;
Uses Crt;
Vara,b,s,cv:= real;

`->` Giữa từ khóa và tên biến không có khoảng trắng

`->` Trước giá trị là dấu hai chấm

`=>`Var  a,b,s,cv :  real ;
Begin 
While('Nhapchieudai='); readln(a); 

`->` Từ while dùng cho câu lệnh lặp với số lần không biết trước

`=>` Write('Nhapchieudai='); readln(a); 
Write('Nhapchieurong=');readln(); 

`->` Trong cậu lệnh Readln chưa có tên biến để lưu biến

`=>`Write('Nhapchieurong=');readln(b); 
s=axb; 

`->` Câu lệnh gán  ' := ' chứ không phải phép so sánh ' = '

`->` Sai dấu nhân

`=>`s := a*b; 

cv:(a+b):2;

`->` Sai cú pháp câu lệnh gán

`=>`cv:=(a+b):2;
Writeln('Dientichhinhchunhat la:’,s:6:2);
Writeln('Chu vi hinhchu nhat:',cv:6:2); 
Readln; 
End.

Program HCN;

Uses Crt;

Var a,b,s,cv: real;

Begin

Write('Nhapchieudai='); readln(a);

Write('Nhapchieurong=');readln(b);

s:=a*b;

cv:=(a+b)/2;

Writeln('Dientichhinhchunhat la:’,s:6:2);

Writeln('Chu vi hinhchu nhat:',cv:6:2);

Readln;

End.