program PrintMultiplesOfThree;
vari: integer;
beginfor i := -100 to 100 dobeginif i mod 3 = 0 thenwriteln(i);end;end.
program PrintMultiplesOfThree;
var
i: integer;
begin
for i := -100 to 100 do
begin
if i mod 3 = 0 then
writeln(i);
end;
end.