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!