Найдите сумму всех натуральных чисел на интервале от 1 до n.Число

var
   n, i, sum: integer; // объявляем переменные целочисленного типа.
begin
   writeln( Введите положительное число:); // вывод строчки на экран.
   readln (n); // считываем число, введенное с клавиатуры.
   i:=1;
     while i lt;= n do   // начало цикла.
        begin
          sum:= sum + i;  // считаем сумму на каждом шаге цикла.
          i:= i +1;            // увеличиваем счетчик.
        end;
   writeln( Сумма естественных чисел от 1 до ,n , одинакова: , sum); // вывод строчки на экран.
end.