cái này cỉa lazi bị lỗi căn dòng á, tui copy từ bài của tui mà sang đây thì nó lại bị lỗi vầy code này không bị lỗi nè, tui up lại nha program hinhchunhat; var a,b,S,C: real; begin Write('Nhapdodaicanhthuchata=');readln(a); Write('Nhapdodaicanhthuhaib=');readln(b); S:= a*b; C:=(a+b)*2; Writeln('Dientichhinhchunhatla:',S); Writeln('Chuvihinhchunhatla:',C); readln end.