Задание 1:

с                    b                    b>10

0                    3                    нет    

3                    2                    нет

5                    4                    нет

9                    6                    нет

15                   8                    да

!Если нужно заполнить таблицу из 4х строк - не писать первую, так как там значения изначальные.

Задание 2:

var p, s: real;

begin

   p := 2;

   s := 0;

   repeat

      p := p * 1.5;

       s := s + p;

   until p > 5;

  writeln(s);

end.

Задание 3:

 s := 0;

 n := 1;

 i := 1;

 while i >= 3 do

 begin

     s := s + 1 / n;

     n := n + 2;

     i := i + 1;

 end;