Вопрос

Действие цикла p:=1; for i:=7 to 15 do p:=p*i; writeln(p);
Адаптивное тестирование - быстрая и точная оценка персонала