1) sửa s:=1;
giả thích nếu cho s=0 thì câu lệnh sẽ ra kết quả là 0 nên phải cho s=1
2) For a:=1 to 8,5 do writeln('a);
⇒ FOr a:=1 to 8 do writeln('a');
giải thích: giá trị cuối của câu lệnh lặp là số nguyên ko phải số thực
thiếu dấu nháy trong câu lệnh writeln
chúc bạn học tốt
cho mình câu trả lời hay nhất nha