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 tích hình vuông (độ dài cạnh hình vuông, chu vi, diện tích là các số thực)

program hinhvuong;

uses crt; 

var a, S, C: real;

begin 

       clrscr;

       write ('Nhap a: '); readln (a);

       S:=a*a;

       C:=a*4;

       writeln ('Dien tich cua hinh vuong la:', S);

       writeln ('Chu vi cua hinh vuong la:', C);

readln 

end. 

Chúc bạn học tốt !!!

program window

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.