Безотлагательно ПЖ! 1) Составить программу, которая находит сумму всех естественных чисел

Сумма натуральных чисел от 20 до 30 сочиняет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программку.

Решение на языке Pascal:

var  n: real;

begin

 n := (20 + 30) / 2 * 11;

 writeln(n);

end.

Другое решение: с помощью цикла просуммируем все числа от 20 до 30.

var

 i, s: integer;  

begin

 s := 0;

 for i := 20 to 30 do

   s := s + i;

   writeln(s);

end.