Программа на паскаль

Question

Нужно составить программу чтобы четные числа складывались а нечетные умножались. 
тУ меня есть вот такая идея, но мой учитель говорит что в ней надо что-то поменять местами и тогда она заработает. 
Вот сама программа: 
var m,b,n,a,i,g: integer; 
begin 
writeln ('vvedi chislo g:'); 
readln(g); 
for i:= 1 to g do 
begin 
writeln ('vvedi chislo a:'); 
readln (a); 
b:= a mod 2 
if b=0 then n:=n+g else m:=m+g; 
writeln (n,m); 
readln(n,m); 
end; 
end.

Ritakichaeva Kalina · Accepted Answer

вообще что такое "а"? 
короче все это так выглядит 
 
var m,n,b,g,i: integer; 
begin 
n:=0; m:=1; 
writeln ('vvedi chislo g:'); 
readln(g); 
for i:= 1 to g do 
begin 
b:= i mod 2; 
if b=0 
then n:=n+i 
else m:=m*i; 
end; 
writeln (n,m); 
end.