Думаю, таблица может быть произвольной. Главное, чтобы было место для ввода x и вывода у.
Например, смотри картинку...
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.
Program riad;
var
a:array [1..10] of integer;
i,j:byte;
begin
writeln('Vvedite chisla');
for i:=1 to n do
readln(a[i]);
i:=1;
j:=0;
repeat
if a[i]<abs(a[i]) then j:=j+1;
i:=i+1;
until i=10;
writeln('kol-vo otricat = ',j);
readln;
end.
Если i больше 0 делаем
1) i:= i(=5) - 1 = 5-1= 4
2) s:= 0+4(получилось в 1 действии)= 4
i больше 0, повторяем процедуру
1) i:= i(=4 из 1-ого решения) - 1 = 4-1= 3
2) s:= 4( из 1-ого решения) +3= 7
И еще раз
1) i:= i(=3 из 2-ого решения) - 1 = 3-1= 2
2) s:= 7( из 2-ого решения) +2= 7 + 2 = 9
Снова
1) i:= i(=2 из 3-ого решения) - 1 = 2-1= 1
2) s:= 9( из 3-ого решения) +1= 9+1 = 10
И еще
1) i:= i(=1 из 4-ого решения) - 1 = 1-1= 0
2) s:= 10( из 4-ого решения) +0= 10+0 = 10
Так как i= 0, а не больше 0, то алгоритм закончен
S= 10