Что выведет эта прога и почему она у меня не работает?Проверял ** наличие ошибок но не...

Question

Что выведет эта прога и почему она у меня не работает?Проверял на наличие ошибок но не робот.Прога не моя а в задании написать что она выведет а вывести не могу (

---

Comments

а на ту 12 снизу не обращайте внимание это уже от другой проги )ъ

---

я уже другую проверяю

Answer 1

Процедура q описана без параметров:
procedure q;
а в обращении к ней параметр есть Q(5)
Можно или исправить заголовок процедуры, например так::
procedure q(x:integer);
или заголовок не менять, но тогда в обращении к процедуре вместо Q(5); просто написать Q;