Lỗi sai: (phần gạch chân)

while i <= n do

begin

if n mod 50 then write(i:3,',')      -> Sai điều kiện, thiếu dấu chấm phẩy

i:=1+1;                                        -> Gán giá trị sai

end                                             -> Thiếu dấu chấm phẩy

readln

end.

Sửa lỗi:

while i <= n do

begin

if n mod 5=0 then write(i:3,',');

i:=i+1;

end;

readln

end.

Học tốt!

dòng 3: thiếu ; ở cuối câu.

dòng 3: điều kiện trong if-then bị sai.

dòng 4: câu lệnh gán sai (vì nó sẽ làm vòng lặp lặp vô hạn lần)

dòng 5: thiếu ; cuối câu

sửa:

while i <= n do
    begin
        if (n mod 5=0) then write(i:3,',');
        i:=i+1;
    end;
    readln
end.