Sửa lại hết luôn nhé bạn:

Program Hinh_vuong;

Use Crt;

Var a,chu_vi,dien_tich:Integer;

Begin

Clrscr;

Write('Moi nhap do dai canh hinh vuong a='); Realn(a);

Writeln('Tinh chu vi va dien tich hinh vuong');

chu_vi:=a*4;

dien_tich:=a*a;

Writeln('chu vi hinh vuong la :', chu_vi );

Writeln('Dien tich hinh vuong la : ', dien_tich );

Readln;

End.

Đây là bài sửa lại của mình

Program Hinh_vuong;

Uses Crt;

Var a, chu_vi , dien_tich:Real;

Begin

Clrscr;

Write('Moi nhap do dai canh hinh vuong a=') ;

Readln(a);

Writeln('Tinh chu vi va dien tich hinh vuong');

Chu_vi:=a*4;

Dien_tich:=a*a;

Writeln('chu vi hinh vuong la :', chu_vi : 2 : 1);

Writeln('Dien tich hinh vuong la : ', dien_tich : 2 : 1);

Readln

End.