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

Выделите один оператор так, чтобы программа печатала только те числа, которые кратны 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.