Ответ:

Объяснение:

Тип массива, используемый в заголовке процедуры должен быть описан отдельным типом, например:

type

 tmas = array[1..n] of real;

procedure P(y:tmas);