Составить блок-схему и программу на языке paskal. программа запрашивает натуральное число n и находит сумму натуральных чисел от 1 до n.

program n_1;

var  n, S, i: integer;

begin 
   writeln('Введите натурально число:'); 
   readln(n); 
   S := 0; 
   for i := 1 to n do   
       S := S + i;              
   writeln('Сумма натуральных чисел=', S);
end.