Вычислите для первых N элементов:
a) 1+3+5+7+... и 1*3*5*7*...;
b)2+4+6+8+... и 2*4*6*8*...;
c)3+6+9+12+... и 3*6*9*12*...;
d)4+8+12+16... и 4*8*12*16*...;
Например: При n=3 имеем 1+3+5=9; 1*3*5=15.
Задачу надо решить с оператором for, для Pascal 7.0.

Пожалуйста

{$N+}uses Crt;procedure L(n,first,step:integer);var  i,s,current:integer;  p:double;begin  p:=1;  s:=0;  current:=first;  for i:=1 to n do begin    s:=s+current;    p:=p*current;    Write(current,',');    current:=current+step    end;  Writeln(' : S=',s,', П=',p)end;var  n:integer;begin  ClrScr;  Write('n=');  Read(n);  L(n,1,2);  L(n,2,2);  L(n,3,3);  L(n,4,4);  ReadKeyend.