Написать программу которая печатает до 100,только которая делиться ** 3

Question

Написать программу которая печатает до 100,только которая делиться на 3

Answer 1

Var i:integer;
begin
for i:=1 to 101 do
if i mod 3=0 then writeln(i);
end.