6. Яке значення змінної і буде після виконання програми? var i, n: integer;
begin
n := 15;
0;
while n>= 40 do
begin
i := i + 1;
n := n + 15;
end;

//первая программа

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       inc(x[i]);   end;     writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

//вторая программа

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 0 then          x[i] : = 0;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

// третья программа

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] < 0 then          x[i] : = x[i] * x[i];   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

// четвертая программа

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 10 then          x[i] : = x[i] + 2;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.