Cho chương trình dưới đây tính diện tích hình vuông .Hãy tìm những lỗi sai và sửa lại cho đúng Program Hinh_vuong; Uses crt var a , integer ; S: real; Begin Write ( 'Nhap canh hinh vuong : ') readln(a); S := a x a; ( 'Dien tich hinh vuong la: ' , S); readln end.

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.