Найдите сумму всех натуральных чисел на промежутке от 1 до n.Число n вводится на клавиатуре.Составьте на Паскале с циклом

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