Вычислите для первых N элементов: a) 1+3+5+7+... и 1*3*5*7*...; b)2+4+6+8+... и...

{$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);
ReadKey
end.