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

Program tinhoc;

Uses crt;

Var a,C,S: real;

Begin

clrscr;

Write(' Nhap gia tri cua a: '); readln(a);

C:=a*4;

S:=a*a;

Writeln(' Chu vi la:',C:6:2);

Writeln(' Dien tich la:',S:6:2);

Readln

End.