Пожалуйста посчитайте пожалуйста15 поинтов

1) while. Потому что проверка условия происходит сразу же, и если будет ложь, то цикл вообще выполняться не будет.
2) repeat/until
3) repeat
B=B-A
Until A4)
а, в: алгоритм циклической структуры
б: алгоритм разветвляющейся структуры
г: алгоритм линейной структуры
5) б
6) х: 13, у: 12
7) х:4, у: 12
8) 24
9:
...
А:=16;
B:=2;
While (B<>32) do
Begin
B:=B*2;
A:=A+2;
End;
...