uses crt; var i,n,d,t:longint; begin clrscr; readln(n); t := 0; for i := 1 to n do if (i mod 2 = 1) then begin writeln('Cac so le la ',i); t := t + i; inc(d); end; writeln('Tong cac so le: ',t); writeln('Co ',d,' so le'); readln end.
uses crt; var i,n,t,d:longint; begin clrscr; readln(n); for i:=1 to n do begin if i mod 2 = 0 then continue; write(i,' '); inc(t,i); inc(d); end; writeln; writeln('Tong: ',t); writeln('Co ',d,' so le'); readln; end.