lỗi ỡ hàng đầu tiên giữa 'hinh' và 'vuong' ko cho cách

sữa lại  'program dt_hinh_vuong;'

'lỗi ỡ hàng 4 câu lệnh 'clrscr' sử dụng thư viện crt nên phải khai báo 'uses crt' ở sau 'program dt_hinh_vuong'

sữa lại

'program dt_hinh_vuong;

uses crt;'

lỗi ở hàng thứ 5 câu lệnh writeln phải sử dụng thư viện crt nhưng ở trên chúng ta đã khai báo rồi nên mik ko nói lại nx, cai lỗi thứ hai ở đây là sau 'writeln('nhap do dai canh hinh vuong:)' phải có dấu ';' và sau khi viết song 'nhap do dai canh hinh vuong' thì phải có dấu '

sửa lại 'writeln('nhap do dai canh hinh vuong:');'

lỗi ở hàng 6 vài khi chúng t khai báo ở trên là a chử thường mà ở dưới lại chữ hoa

sửa lại 'readln(a);'

Lỗi ở hàng 7 vì trong pascal ko dùng 'x' mà dùng '*'

sửa lại   'S:=a*a;'

hàng 8 trước 'S' phải có dấu ','

sửa lại  'writeln('dien tich hinh vuong:', s);'

hàng 9 thiếu ;

sửa lại   'reaadln;'

chương trình hoàn chỉnh:

program dt_hinh_vuong;
uses crt;
var a,S:integer;
begin
clrscr;
writeln('nhap do dai canh hinh vuong:');

readln(a);

S:=a*a;

writeln('dien tich hinh vuong:', s);

readln;

End.

Chúc bạn học tốt nha.

Mình đánh số thứ tự cho bạn dễ thấy nha!!

(1)Tên chương trình không được chứa dấu cách

=> Sửa: Program DT_hinhvuong;

(5)Chưa đóng xâu kí tự và thiếu dấu chấm phẩy

=>Sửa: writeln('nhap do dai canh hinh vuong:');

(6)Sai chính tả lệnh readln

=> Sửa: readln(A);

(7) Pascal không được dùng theo phép nhân số học

=> Sửa: S:=a*a;

(8) Thiếu dấu phẩy để ngăn cách xâu và biến

=> Sửa: writeln('dien tich hinh vuong:',S);