Lỗi 1: uses crt → uses crt;

Lỗi 2: a , integer → a: integer;

Lỗi 3: Write ( 'Nhap canh hinh vuong : ') → Write ( 'Nhap canh hinh vuong : ');

Lỗi 4: S:=a x a; → S:=a*a;

Lỗi 5: ( 'Dien tich hinh vuong la: ' , S); → Write('Dien tich hinh vuong la:', S);

Viết lại chương trình:

Program Hinh_vuong;

Uses crt;

Var a: integer;

      S: real;

Begin

         Write('Nhap canh hinh vuong: '); readln(a);

         S:=a*a;

         Write('Dien tich hinh vuong la:', S:0:0);

         Readln

End.

Program Hinh_vuong;

Ues crt;

Var a: integer;

       S : real;

Begin

             Clrscr;

  Write( 'Nhap canh hinh vuong: a') ; Readln(a);

        S := a*a;

 Writeln('Dien tich hinh vuong la: ' , S : 10 : 2);

       Readln;

End.