определить значение s : A:=-1 ; B:=B+A нц пока A+B<10 A:=A+1 ; B:=B+A кц S:=A Подставлять значение из другой таблицы