Как вставить новую строку после всех строк , в которых нет ни одного четного элемента? ( Pascal ABC ). Сам код:
var i, j,k, n,h, p,g, m: integer;
a, x: array [1..10,1..10] of integer;
begin
writeln('Введите цифру, которой хотите заполнить строку ');
readln(n);
writeln('Введите размерность двумерного массива ');
readln(m);
k:=0;
h:=0;
g:=0;
for i:=1 to m do
for j:=1 to m do
read(a[i, j]);
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i, j] mod 2 = 0 then h:=h+1;
end;
if h <> 0 then k:= k + 1;
h:=0;
end;
p:=0;
h:=1;
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i, j] mod 2 = 0 then
begin
x[h, j]:=a[i, j];
p:=p+1;
end
else
begin
x[h, j]:=a[i, j];
end;
end;
if p<>0 then
begin
h:=h+1;
for g:=1 to m do
x[h, g]:=n;
h:=h+1;
p:=0;
end
else h:=h+1;
end;
for i:=1 to (m+k) do
begin
for j:=1 to m do
writeln(x[i, j]);
end;
end.

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;