Viết chương trình tính diện tích hình vuông

Uses crt;

Var a,s: real;

Begin

Write(‘Nhap a = ‘);

readln(a);

s:=a*a;

Writeln(‘Dien tich cua hinh vuong la: ‘,s);

Readln

End.