Помогите срочноооо плиззз кто помог красавчик

1.

c   b   b > 10

0   3   нет

3   5   нет

8   7   нет

15  9   нет

24  11   да

Ответ: 24

2.

var p, s:real;

begin

   p := 2;

   s := 0;

   repeat

       p := p * 15;

       s := s + p;

   until p > 5;

   writeln(s);

end.

Ответ:

Объяснение:

Задание 2 во вложении, я его проверила.

Задание 1.

Смотрим: начальное значение b=3

3>10 нет, c:=0+3=3

                b:=3+2=5

5>10  нет, c:=3+5=8

                b:=5+2=7

7>10  нет, c:=8+7=15

                b:=7+2=9

9>10  нет, c:=15+9=24

                b:=9+2=11

11>10 да В итоге с=24.

Ответ: 24