Viết chương trình tính diện tích và chu vi hình vuông với số đo cạnh a nhập từ bàn phím Mong giúp đỡ ạ

program bai_giai;
uses crt;
var a:longint;
begin
 clrscr;
  write('a=');readln(a);
  writeln('chu vi:=',a*4);
  write('dien tich:=',a*a);
 readln;
end.

program buhdak;
uses crt;
var a: real; {dùng real, integer, hay longint đều được nha}
begin
clrscr;
writeln('Hay nhap gia tri a: '); readln(a);
writeln('Diện tich cua hinh vuong co gia tri a la: ',a*a:0:2);
writeln('Chu vi cua hinh vuong co gia tri a la; ',a*4:0:2);
readln;
end.
{nếu dùng loại biến longint hay integer thì bỏ phần :0:2}