Homework of pascal, please help me find the error
var a:array [1..100] of integer;
n:integer;
procedure nhapmang (var a:array [1..100] of integer;var n: integer);
var i:integer;
begin
write ('nhap n:');
readln (n);
for i:=1 to n do
begin
write ('a[', i, ']=');
readln;
end;
end;
procedure xuatmang ( a:array [1..100] of integer; n: integer);
var i:integer;
begin
for i:=1 to n do
write (a[i]:4);
end;
begin
nhapmang (a, n);
xuatmang (a, n);
end.

Me2540 week 5 assignment what do i want to know?

3. (5 points) describe what would be printed by the code below or what error would occur. const char* cstr = "0123456"; const char* ptr = & cstr[4]; cout < < ptr[-1] < < ptr < < endl; 1 4. (5 points) theseus has been trapped in a maze with a minotaur, which is trying to capture him. each round, theseus and the minotaur move through the maze; theseus towards the exit, and the minotaur towards theseus. theseus can move in any of the four cardinal directions, or he can wait for a round to see how the minotaur moves. write code that creates a data type to represent the possible moves that theseus could make.

Complete the sentence based on your knowledge of the professional difficulties faced by music artists. digital technology allows audiences to see free live telecasts of music or dance performances through