*Hình 1: Để thoát ra thì bạn nhấn "Enter" ! Nếu không được thì nhấn bất kì số, chữ, .... trên bàn phím rồi ấn "Enter"
*Hình 2: (Chương trình sau đã sửa): Bạn sai ở dòng 10, 11, 12, 13
Program Hinh_vuong;
Uses crt;
Var S, P, a: real;
Begin
Clrscr;
Write('Nhap a = '); readln(a); {Ở chỗ này mình chỉ đổi thôi ! Bạn đừng đổi theo !)
P:=a*4;
S:=a*a;
Writeln('Chu vi hinh vuong la: ',p:4:2);
Writeln('Dien tich hinh vuong la: ',s:4:2);
Readln {Câu lệnh này để xem màn hình}
End.