program PascalGuru;
 
var i,n,p,code:integer;
    s:string;
    a:array [1..100] of integer;
    pr,summa:integer;
    f:text;
 
begin
 
writeln('Vvedite cisla cerez probel: ');
readln(s);
 
i:=0;
repeat
inc(i);
p:=pos(' ',s);
val(copy(s,1,p-1),a[i],code);
delete(s,1,p);
until p=0;
val(s,a[i],code);
n:=i;
 
pr:=1; summa:=0;
for i:=1 to n do
if odd(a[i]) then pr:=pr*a[i] else summa:=summa+a[i];
 
writeln;
writeln('Proizvedenie: ',pr);
writeln('Summa: ',summa);
writeln;
 
writeln('Necetnye:');
writeln('__________');writeln;
assign(f,'ODD_NUM.DAT'); rewrite(f);
for i:=1 to n do
if odd(a[i]) then begin write(a[i]:5); writeln(f,a[i]); end;
 
 
readln;
close(f);
 
end.