помогите пожалуйста решить задачу на паскале.

[bonys91]

помогите пожалуйста решить задачу на паскале.
Даны 20 вещественных чисел, которые вводятся по одному. Найти сумму четных и произведение нечетных чисел.Подскажите где ошибки!!!

program zadacha;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r ,s,t:real;
i:integer;
symma,proizvedenie:real;
begin
writeln('vvedite 20 chisel');
readln(a,b,c,d,e,f,g,h,i,j,k,l,m,n, o,p,q,r,s,t);
symma:=0;
proizvedenie:=0;
for i:=1 to 20 do
if i mod 2=0 then
symma:=symma+i
else
proizvedenie:=proizvedenie*i;
writeln(symma);
writeln(proizvedenie);
readln;
end.

[__STDC__]

Ошибка в алгоритме.. это жесть)) 20 переменных.. делайте массив ( array[1..20] of real; )
и зачем вам эти 20 переменных, если вы их дальше не используете?

[Chudo4258]

var A:array [1..20] of real;
     i:integer;
     S,P:real; 
begin
S:=0;
P:=1;
for i:=1 to 20 do
 begin
 readln(A[i]);
 if i mod 2 =0 then S:=S+A[i]
                   else P:=P*A[i];
 end;

[bonys91]

огромное спасибо, а чё то и не подумал про массив теперь всё понятно