Question

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

Answer 1

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.

Answer 2

блок схему, сейчас сделаю.