Вывести «столбиком» следующие числа : 3,2,3,2,3,3…..,3,9 — Pascal(Паскаль)

var i:integer;
begin
  for i:=1 to 9 do
    begin
      writeln('3');
      writeln(i);
    end;
readln;
end.