Вывести на экран первые N чисел последовательности: 8, 14, 20, 26, 32...
Найти А1+А3+А5+А7+А9, где Ai - это i-ое число последовательности чисел.
Написать ко второму заданию программу на Паскале с использованием while/repeat/for.

Это первое, счас допишу второе

program p1;var i,n,s,s1:integer;begins:=8;n:=9;i:=1;repeatif not(i mod 2=0) then s1:=s1+s;i:=i+1;s:=s+6;until i=n;if not(i mod 2=0) then s1:=s1+s;writeln('А1+А3+А5+А7+А9=',s1,' ');end.

проверяйте

Большое спасибо.

program p1;var i,n,s:integer;begins:=8;write('Введите n:');readln(n);for i:=2 to n dobeginwrite(s,' ');s:=s+6;end;writeln(s,' ');end.