Chương trình này bao gồm cả chu vi và diện tích. Nên nếu chỉ viết đối với diện tích thì em bỏ dòng "chu vi hinh vuong" và "chu vi hinh tron di nhe"

lol

Program Tinh;
Uses      Crt;
Var    a,S,CV :real;
Begin
    Write (' Nhap do dai canh a =');
    Readln(a);
    CV := a*4;
    S := a*a;
    Writeln (' CV hinh vu  , CV);
    Writeln (' S hinh vu  , S);
    Readln
End.

Program Tinhtron;
Uses      Crt;
Var    a,S,CV :real;
Begin
    Write (' Nhap ban kinh hinh tron a =');
    Readln(a);
    CV := a*2*3.14;
    S := 3.14*(a^2);
    Writeln (' CV hinh tron'  , CV);
    Writeln (' S hinh tron;  , S);
    Readln
End.

Khai báo các biên trong bài sau
viét chuong trinh S hinh vuông

viết ct tính s c hình vuông