4.
[2]
Нарисуйте фигуру, которая будет выведена на экран после
выполнения скрипта.
Примечание:
Грань клеточки в тетради соответствует 50 шагам спрайта.
когда щелкнут по
установить цвет
Ana nepa
изменить размер пера има 1
спустить терс
перторить 4
идти 100 шагов
медать 1 секунд
повернуть на 90 градусов
подить перо​

1) Независимо от условия будет выполнен оператор присваивания.
a:=b
2) Условие ложное, значит будет выполнен оператор после else
write('b')
3) Условие истинное, значит будет выполнен оператор после then
write('a')
4) Функции операторов присваивания одинаковы, значит не зависят от условия (a + b - 14 = b - 14 + a)
a := a + b - 14
5) Оператор a := a практически ничего не изменяет, значит можно избавится от него
if a<b then a:=b
6) То же самое, что и в пункте 5, только нужно поменять истину на ложь
if not(a>b) then a:=b
7) Остаток деления на 2 не может быть равен трем, значит условие всегда ложно. Else нет, значит условный оператор можно смело откинуть
8) Остаток от деления на может быть равен или 0 или 1, значит в любом случае условие истинно. Первый условный оператор можно смело откинуть, но вложеннный остается!
if a<0 then a:=-a
9) Если a отрицательное, тогда b = a, то есть тоже отрицательно. Если a неотрицательное, тогда b = -a, то есть b отрицательное. Можно записать как модуль числа a, умноженный на -1
b := -abs(a)

Введем обозначения: А - первая буква согласная, В - третья буква гласная. Перепишем условие согласно принятым нами обозначениям и учитывая, что оно должно быть истинным: 
НЕ А И НЕ В = 1.
Логическое произведение двух переменных истинно только в случае истинности каждой переменной. Таким образом, решение задачи распадается на решение двух  равенств:
НЕ А = 1. Это значит, что А = 0, т.е. первая буква имени должна быть гласной. Это имена под номерами 1) и 4).
НЕ В = 1. Это означает, что В = 0, т.е, третья буква имени должна быть согласной. Это условие выполняется только в имени Анна под номером.
ответ: 4.