Question

[Huấn Nguyễn Tư]

tìm lỗi và sửa

Var a: integer;

Begin

A:=S;

While a<6 do writeln (a);

End.

Answer 1

[KAl(SO4)2·12H2O]

thoi de minh sua ca bai

var a, S:integer

begin

a:=S;

while a < 6 do writeln(a);

end.