Написать программу, вывод на экран последовательность из 10 чисел каждое из которых на 3 больше предыдущего.

Program enot;
Var b,j,i: integer;
begin
read(b);
for j:=1 to 9 do
begin
b:=b+3;
writeln(b);
end;
end.