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

uses crt;
var
 i:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln(3);
writeln(i);
end;
readkey
end.