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

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