Вывести на экран массив q(10), значение каждого элемента которого равно удвоенному квадрату индекса этого элемента. вычислить сумму элементов матрицы м(6, 6), лежащих справа от главной диагонали.

{$r+,s+,q+}  uses  sysutils;   const r=1000; type mas= array  [0..r]  of integer; var  a: mas;   en,n: integer;   x,y,z,q,w: char; function push(n: integer): string; begin   a[en]: =n;   en: =en+1;   push: ='ok'; end; function pop(): integer; begin   en: =en-1;   pop: =a[en];   a[en]: =0; end; function back(): integer; begin   back: =a[en-1]; end; function size(): integer; begin  size: =en; end; function clear(): string; begin   en: =0;   clear: ='ok'; end; function exit(): string; begin  exit: ='bye'; end; begin   en: =0;   repeat     read(x);     if x='p' then    begin       read(y);       if y='u' then      begin         read(z,q,w);         readln(n);         writeln(push(n))      end else begin         readln(z);         writeln(;       end;     end;     if x='b' then    begin       readln(y,z,q);       writeln(;     end;     if x='s' then begin       readln(y,z,q);       writeln(;     end;     if x='c' then begin       readln(y,z,q,w);       writeln(;     end;     if x='e' then begin       readln(y,z,q);       writeln(;     end;   until x='e'; end.

Прежде всего, код надо отформатировать и исправить имеющиеся в нем ошибки. а затем приступать к его рассмотрению. var   a, b: integer; procedure proc(var a: integer; b: integer); begin   b : = 4; a : = 6; b : = a + b end; begin   a : = 2; b : = 3;   proc(a, b);   writeln(a, ' ', b) end. описаны две целочисленные переменные a и b. им присваиваются значения 2 и 3 соответственно. затем следует вызов процедуры proc, в которую эти переменные в качестве параметров. на входе в proc получаем a=2, b=3. далее b получает значение 4, а получает значение 6 и затем b получает значение суммы a+b, т.е. 4+6=10. на этом работа процедуры завершается. поскольку параметр процедуры a имеет описатель var, то в основную программу вернется значение, которое a имело внутри процедуры (т.е. 6). значение b=10 действует только внутри процедуры и в основную программу не вернется. следовательно, в основной программа значение а поменяется на 6, а значение b сохранится прежним (3). в результате на выходе будет строка: 6 3