program Summa;
var
n, s, i: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
s := 0;
for i := 1 to n do
s := s + i;
WriteLn ('Сумма = ', s);
ReadLn;
end.
