Декодируйте, !
ну, вот что делать с этими вирусами? они пробрались в текстовые файлы и заменили буквы на цифры. а еще они удалили окончание фразы. чего не хватает?

21 3-6-13-10-12-16-4-16 4-10-17-17-16-12-18-1-20-1 19-17-18-16-19-10-13-10: «17-18-1-3-5-1 13-10, 25-20-16 4-6-15-10-1-13-30-15-16-19-20-30 – 31-20-16 2-16-13-6-9-15-30? » «2-6-9-21-19-13-16-3-15-16, – 16-20-3-6-20-10-13 4-10-17-17-16-12-18-1-20, – 15-16 16-25-6-15-30 18-6-5-12-1-33 10 »

Для того, чтобы эта программа заработала надо добавить перед описанием процедуры F следующую строчку:
procedure G(n: integer);forward;
Так как в процедуре F есть вызов процедуры G описанной дальше по тексту программы.
После исправления кода и запуска программы с F(12) получим 17 звездочек. По шагам это будет выглядеть так:

 Вызов процедуры F и выполнение
* n = 12
* n = 12
Вызов процедуры G и выполнение
* n = 11
* n = 11
Вызов процедуры F и выполнение
* n = 9
* n = 9
Вызов процедуры G и выполнение
* n = 8
* n = 8
Вызов процедуры Fи выполнение
* n = 6
* n = 6
Вызов процедуры G и выполнение
* n = 5
* n = 5
Вызов процедуры F и выполнение
* n = 3
* n = 3
Вызов процедуры G и выполнение
* n = 2
* n = 2
Вызов процедуры F и выполнение
* n = 0

1

Объяснение:

Программа выдаст "Yes" , если любое из условий сработает. Либо s будет больше 10, либо t больше A.

Мы сразу определяем сколько раз сработает первое условие: (10,2) , (11,12).

Получается нам осталось ещё, чтобы второе условие сработало 6 раз.

Мы видим, что если в переменную А записать число 1, то второе условие сработает на числах : (1,2) , (1,12) (-11,12) (-12,11) (10,10) (10,5)

В сумме с первым условием (s>10) получается, что программа выдаст "Yes" как раз 8 раз, не выполнится только ввод чисел (-11,-12)