请勿使用空泛、模糊的标题，最好具体、明确、直接点明所要问的问题。参见版副def2005-9-2的帖子《在论坛里我根本就不理会的求助帖子》。

输入10个数，分别求出其中奇数与偶数的和。这道题目是这样的:
program jiou(input,output);
var s,i,j:integer;
b:array[1..10] of integer;
begin;
  for i:=1 to 10 do read(b[i]);
  if trunc(i/2)=i/2 then s:=s+i else j:=j+i;
  write(s,j)
end.[em1]

本人对于用其它语言编写的程序，根本就看不懂。