Проблема с кодом в паскаль

Program ERROR;

Const N=30;

Type T_Mas=Array[1..N+1] of Integer;

Var Mas :T_Mas;

K,X,RAZMER:Integer;

Procedure Init1(Var Kol:Integer;Var M:T_Mas);

Procedure Print1(Kol:Integer; Var M:T_Mas);

Procedure Insert1(Kol,K1,X1:Integer;Var M:T_Mas);

Var I:Integer;

Begin {сдвиг элементов на одну позицию назад}

For I:=Kol DownTo K1+1 Do M[I+1]:=M[I];

M[K1+1]:=X1

End;

Begin

Init1(RAZMER,Mas);

Print1(RAZMER,Mas);

WriteLn('20');

WriteLn ('1');

ReadLn(K,X);

Insert1(RAZMER,K,X,Mas);

Print1(RAZMER+1,Mas);

End.

что не так с этим кодом? (паскаль)

234

473

Посмотреть ответы 1

Ответы на вопрос:

Tiggeri

Информатика

4,7(8 оценок)

10-1010

8-1000

16-10000

10101110-174

Объяснение:

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.