var i,N : byte;
     S : real;
begin
writeln('Ââåäèòå N =');
readln(N);
S := 0;
for i :=1 to N do
s:=s+i;
writeln('S= ', S);
readln
end.