составить  программу для вычисления суммы ряда (pascal ABC)
1+3+5+7...+n

program chik;var n,s,i:longint;beginread(n);i:=-1;s:=0;while i<=n dobegini:=i+2;s:=s+i;end;writeln(s);end.