Program ;
Var n:integer;
Begin
Write('Введите натуральное число: ');
Read(n);
Write('Сумма натурального числа: ');
Writeln(( 1 + n ) / 2 * n);
end.
