chương trình sẽ không cho ra kết quả đúng

vì hai câu lệnh s := s + i; i := i + 1; không được đặt trong cặp từ khóa begin-end; nên i sẽ mãi mang giá trị 1, do đó chương trình chỉ thực hiện s=0+1+1+1+1+1+...

mà giả sử hai câu lệnh s := s + i; i := i + 1; được đặt trong cặp từ khóa begin-end; thì vẫn sẽ bị lỗi thuật toán vì điều kiện là i<10 nên khi i nhận giá trị là 10 thì câu lệnh sẽ bị bỏ qua

do đó, s chỉ nhận giá trị là: 0+1+2+3+...+9

vì vậy chương trình sẽ không cho ra kết quả đúng

* chương trình khi sửa:

uses crt;

var i,s: integer;

begin

i := 1; s := 0;

while i <= 10 do

begin

s := s + i;

i := i + 1;

end;

writeln (s);

readln;

end.

nên thêm phần while i<10 do thành while i<=10 do nha:)