hình vuông ABCD các cạnh tương ứng vs a. A viết công thức tính hình vuông, b xác định bài toán mô tả thuật toán

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