Bằng chương trình pascal em hãy viết chương trình tính diện tích hình vuông với cạnh hình vuông được nhập từ bàn phím

uses crt;

var

a,S,C: integer;

begin

clrscr;

write(‘Nhap do dai canh hinh vuong: ‘);readln(a);

C:=a*4;

S:=a*a;

writeln(‘Chu vi hinh vuong la: ‘,C);

writeln(‘Dien tich hinh vuong la: ‘,S);

readln

end.