viết chương trình nhập vào độ dài cạnh a của hình vuông. Đưa ra màn hình chu vi và diện tích hình vuông?

Program bai_tap;

Uses crt;

Var a, CV, S: real;

Begin

Write (‘Nhap a=’);

Readln (a);

CV:= a*4;

S:= a*a;

Writeln (‘Chu vi hinh vuong la:’, CV:8:2);

Writeln (‘Dien tich hinh vuong la:’, S:8:2);

Readln

End.