Можно посчитать все числа и делить на 2: 14 / 2 = 7, или посчитать только на одной стороне: 7
Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.
varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin //начинаем цикл
if f[i]<0 then begin //проверяем первое условик
if schet=0 then begin
inc(schet);
for i2:=0 to i do
f[i2]:=0;
end else
if schet=1 then //второе условие
for i2:=i to high(f) do
f[i2]:=0; end;<span>end;
//end for</span>
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
Если имеется в виду язык Pascal, то переменные описываются в разделе Var. В разделе Const описываются константы. А раздела Vaq в этом языке нет.
===== PascalABC.NET =====
begin
var s := ReadlnString;
var t := ReadlnString;
Insert(t + ' ', s, Pos(' ', s) + 1);
s.Println
end.