Где ошибка? ? const n=10; type tmas=array[1..n] of integer; var mas1: tmas; procedure imputmas1(var mastmas: integer); var i: integer; begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end.

ну так во первых   обяъвление процедуры должно быть

procedure inputmas1(var mas1: tmas );

  во вторых ты забыл   end;   т.е 

begin for i: =1 to 10 do      begin            mas1[i]: =random(n);             write(mas1[i]: 3);       end;   end; {забытый end}

в третьих ты   не написал основную прграмму т.е забыл begin и не вызвал процедуру 

inputmas1

begin

      clrscr;       inputmas1(mas1);

      readkey; end. 

  итого прога должна выглядеть примерно так

program massivuses crt; const n=10; type tmas=array[1..n] of integer; var mas1: tmas;

procedure inputmas1(var mas1: tmas); var i: integer; begin      for i: =1 to 10 do        begin        mas1[i]: =random(n);         write(mas1[i]: 3);         end; end; {основная прога}begin clrscr; inputmas1(mas1); readkey; end.

держи ! пользуйся на здоровье и будь внимательнее.

4.

Объяснение:

При каждой итерации к a будет прибавляться 1.

Но a изначально - 1.