Процесс выполнения операторов присваивания: b: =4; m: =121; z: =b∗m при выполнении оператора b: =4 в ячейку оперативной памяти компьютера с именем b заносится значение ; при выполнении оператора m: =121 в ячейку оперативной памяти компьютера с именем m заносится значение ( . при выполнении оператора z: =b∗m значения ячеек оперативной памяти с именами b и m переносятся в процессор, где над ними выполняется операция умножения. полученный результат заносится в ячейку оперативной памяти с именем

В 1 пропуске значение 4
во 2 значение 121
в 3 полученый результат заносится в ячейку оперативной памяти с именем z и значением 484

В запись student добавляете новое поле kurs,
Type student = recordLastName: string ; bal: array [1..5] of integer; 
kurs: integer;average: real end;
В цикле по студентам добавляете ввод курса
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': '); 
Readln (LastName);
 Write('Введите курс '); Readln(kurs);
В конце программы изменяете вывод
writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4');
For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then 
write (pupil[i].LastName,',  ');

Const
  n = 15;

var
  a: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(61) - 30;
    Write(a[i]:4);
    if a[i]>0 then a[i]:=2*a[i]
    else
      if a[i]<0 then a[i]:=7
  end;
  Writeln;
  Writeln('После преобразования');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
 -20  15  16  20   0  16 -15  -1  -2  21  -8 -10   4 -24   1
После преобразования
   7  30  32  40   0  32   7   7   7  42   7   7   8   7   2