Написать программу, вывод на экран последовательность из 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.