program chuong_trinh; {1} `->` Tên chứa dấu cách, thiếu chấm phẩy

var i,s:real; 

const N=10; {2} `->`sai cú pháp hằng

begin

while i<=10 do {3} `->`dư chấm phẩy

begin

S:=S+i ; {4} `->`thiếu chấm phẩy

i:=i+1 ; {5} `->`thiếu chấm phẩy

end ;   {6} `->`chương trình con chữ end là dấu chấm phẩy, không phải dấu chấm

writeln(s); {7}`->`thiếu chấm phẩy

readln

end.

Đã sửa 

ảnh cre Zalo PC

Program Chuong Trinh (Sai) sửa lại"Program ChuongTrinh;"

Var i,s :real; (Đúng)
Const n:=10; (Đúng)
Begin (Đúng)

Wile i<=n do; (Sai) Sửa lại "While i<=n do;"

S:=s+i(đúng)

i=i+1(sai)
end.(Đúng)
Writeln(s) (Sai)
Readln(Sai)
End (Sai) "k có dấu ; đằng sau end"