1) Выведите на экран последовательность первых 20-ти нечетных чисел (1,3,5,7 ...)

2) Выведите на экран первые 15 чисел последовательности: 1,4,7,10,13 ...

(Помоги, прошу!)

Program gt;

var i, k:integer;

begin

k:=0;

for i:=1 to 1000 do

if (i mod 2=1) then begin

k:=k+1;

write (i,' ');

if (k=20) then exit;

end;

end.

2)

program gt;

var i, k:integer;

begin

k:=1;

write (k,' ');

for i:=1 to 14 do

begin

k:=k+3;

write (k,' ');

end;

end.