Напишите, что и в какой последовательности будет выведено на экран в результате выполнения следующей программы (в точности нарисуйте, как это будет выглядеть на экране): var a: integer; b: real; begin a: =2; writeln(a); b: =a*a+3*a; write(′при а= ′,a,′, ответ ′,b); write(′ end′); end.

2при а= 2, ответ 10 end

Const   n = 14; var   i, m, p: integer;   a: array[1..n] of integer: =(1,-3,6,-5,-2,8,-9,14,-24,15,17,12,17,4); begin   writeln('исходный массив');   for i: =1 to n do write(a[i]: 4);   writeln;   {найти максимальный элемент среди элементов, стоящих на четных местах}   i: =4; m: =a[2];   while i< =n do begin if m< a[i] then m: =a[i]; i: =i+2 end;   writeln('максимальный из элементов на четных местах: ',m);   {удалить минимальный элемент массива}   m: =a[1]; p: =1;   for i : = 1 to n do if m> a[i] then begin m: =a[i]; p: =i end;   for i: =p to n-1 do a[i]: =a[i+1];   writeln('массив после удаления минимального элемента ',m);   for i: =1 to n-1 do write(a[i]: 4);   writeln;   {поменять местами первый и последний элементы массива}   writeln('массив после обмена местами крайних элементов');   m: =a[1]; a[1]: =a[n-1]; a[n-1]: =m;   for i: =1 to n-1 do write(a[i]: 4);   writeln;   {вставить в середину массива элемент равный 10}   p: =(n-1) div 2 + 1;   for i: =n-1 downto p do a[i+1]: =a[i];   a[p]: =10;   writeln('массив после вставки в середину элемента со значением 10');   for i: =1 to n do write(a[i]: 4);   writeln  end. результат выполнения программы: исходный массив     1  -3    6  -5  -2    8  -9  14 -24  15  17  12  17    4 максимальный из элементов на четных местах: 15 массив после удаления минимального элемента -24     1  -3    6  -5  -2    8  -9  14  15  17  12  17    4 массив после обмена местами крайних элементов     4  -3    6  -5  -2    8  -9  14  15  17  12  17    1 массив после вставки в середину элемента со значением 10     4  -3    6  -5  -2    8  10  -9  14  15  17  12  17    1