СРОЧНО ПЖ!
1) Составить программу, которая находит сумму всех натуральных чисел от 20 до 30.

Сумма натуральных чисел от 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.