Выделите один оператор так, чтобы программа печатала только те числа, которые кратны 3.


Var x: integer;
Begin
[x:=5;]
[x:=x+1;]
while x<100 do
begin
[x:=x+3;]
[x:=x+1;]
[write (x)]
end;
End.