Viết chương trình tính diện tích và chu vi hình vuông ABCD với cạnh AB được nhập từ bàn phím.In ra kết quả ra màn hình,giúp mik với ạ

2 câu trả lời

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap canh AB : ');readln(a);

cv := a * 4;

s := a * a;

writeln('chu vi hinh vuong : ', cv);

writeln('dien tich hinh vuong : ', s);

readln

end.

program C2;
uses crt;
var AB,cv,S:real;
Begin
    clrscr;
    write('AB = ');readln(AB);
    cv:=AB*4;
    S:=AB*AB;
    writeln('Dien tich hinh vuong: ',S:2:2);
    write('Chu vi hinh vuong: ',cv:2:2);
    readln
End.