uses crt;
var n,s,i,sl:longint;
{o(￣┰￣*)ゞ}
begin
clrscr;
write('N=');
readln(n);
if n mod 2<>0 then
writeln(N:2,' la so le')
    else
    begin
for i:=1 to n do 
begin
S:=s+i;
if i mod 2<>0 then Sl:=sl+i;
end;
writeln(1:3,' ',n:3);
writeln(S);
writeln(sl);
    end
end.

uses crt;
var n,i,s,sl:longint;
begin
clrscr;
   write('Nhap n=');readln(n);
   while (n mod 2=1)or(n<0) do
      begin
         write('Nhap lai n=');readln(n);
      end;
   if n=0 then writeln('0 0') else writeln(1,' ',n);
   for i:=1 to n do
      begin
         s:=s+i;
         if i mod 2=1 then sl:=sl+i;
      end;
   writeln(s);
   writeln(sl);
readln
end.