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 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.

chcus bạn học tốt

Program BTH;
uses crt;
var dai,dt,cv:real;
Begin
        clrscr;
        write('Nhap chieu dai: ');readln(dai);
        dt:= sqr(dai);
        cv:=dai*4;
        Writeln('Dien tich hinh vuong la: ',dt:4:2);
        Writeln('CHu vi hinh vuong la: ',cv:4:2);
        readln;
end.