a) Do bạn không nói là tính gì của hình vuông nên mình làm tính diện tích và chu vi nhé

Program BTT;
Uses crt;
Var a,s,p: real;
Begin
        Clrscr;
        Write('Nhap do dai canh hinh vuong: '); Readln(a);
        s:=sqr(a);
        p:=a*4;
        Write('Dien tich hinh vuong la: ',s:0:2);
        Writeln;
        Write('Chu vi hinh vuong la: ',p:0:2);
        Readln
End.

b)

Input: Độ dài cạnh a

Output: Chu vi và diện tích hình chữ nhật có độ dài cạnh là a

Bước 1: Nhập a

Bước 2:

s ← a*a

p ← a*4

Bước 3: Xuất kq

a) Xác định bài toán :

+ Input : Cạnh a

+ Output : Chu vi và diện tích hình vuông

b) Mô tả thuật toán :

+ Bước 1 : Nhập cạnh a

+ Bước 2 : C ← a * 4

+ Bước 3 : S ← a * a

+ Bước 4 : Đưa ra giá trị C và S

+ Bước 5 : Kết thúc