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.