Выводить числа от 1 до 10 (пока< 10) с шагом 3

Держи Turbo Pascal:
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
  writeln(i);
readln;
end.