Дорогие программисты знающие нейросети нужна ваша помощь!

Вот код, этот код считает сумму с помощью нейросетей-вводишь первое слагаемое, второе и сумму-обучающие данные потом только слагаемые и он выводит ответ:
program uio;
{$N+,E+}
uses crt;
const n=1; m=5;
var c,d,e,topo,p,y,sg2,w2s,sum,tt,tyu:extended;
i,j,k,io,bnm:integer;
a,b:extended;
v1, lv1:array [1..2,1..5] of extended;
v2, lv2:array [1..5] of extended;
sg1, s:array [1..5] of extended;
sl:array[1..3,1..1] of extended;
begin clrscr;
randomize;
read(c);
read(d);
read(e);
writeln('Dlya poluchenia coda zaydite v sait http://webforever.info/binaryDecode/coder.php');
writeln('Dlya ego szhatia [ссылка заблокирована по решению администрации проекта]');
writeln('Ne pishite znachenia menshie chem 10 cimvolov');
writeln('Predmet:');
read(a);
writeln('Vopros k nemu:');
read(b);
sl[1,1]:=c;
sl[2,1]:=d;
sl[3,1]:=e;
e:=0.0001;
for j:=1 to m do begin
v1[1,j]:=(random(99)+1)/100;
v1[2,j]:=(random(99)+1)/100;
v2[j]:=(random(99)+1)/100;
end;

for i:=1 to n do begin

for k:=1 to n do begin
{writeln(e:4:4);}
for j:=1 to m do begin
s[j]:=sl[1,i]*v1[1,j]+sl[2,i]*v1[2,j];
s[j]:=1/(1+exp(-1*s[j]));
end;
sum:=0;
for j:=1 to m do
sum:=s[j]*v2[j]+sum;
y:=1/(1+exp(-1*sum));
sg2:=(y-sl[3,i])*y*(1-y);
w2s:=0;
for j:=1 to m do begin
lv2[j]:=-0.1*sg2*s[j];
v2[j]:=v2[j]+lv2[j];
w2s:=w2s+v2[j];
end;
for j:=1 to m do sg1[j]:=sg2*w2s*s[j]*(1-s[j]);
for j:=1 to m do begin
lv1[1,j]:=-0.1*sg1[j]*sl[1,i];
v1[1,j]:=v1[1,j]+lv1[1,j];
lv1[2,j]:=-0.1*sg1[j]*sl[2,i];
v1[2,j]:=v1[2,j]+lv1[2,j];
end;
e:=(0.5*(y-sl[3,i])*(y-sl[3,i]));
{until (0.5*(y-d[3,i])*(y-d[3,i]))>e}
end;
end;
for j:=1 to m do begin
s[j]:=a*v1[1,j]+b*v1[2,j];
s[j]:=1/(1+exp(-1*s[j]));
end;
sum:=0;
for j:=1 to m do sum:=s[j]*v2[j]+sum;
y:=1/(1+exp(-1*sum)); y:=a+b-v2[1]/5;
writeln('Dlya vostanovlenia koda zaydite v sait [ссылка заблокирована по решению администрации проекта]');
writeln('Dlya poluchenia teksta http://webforever.info/binaryDecode/coder.php');
writeln(y);
read(bnm);
end.

________________________________________________________________________________________________

Задача: нужно изменить этот код так чтобы он вычислял всё что угодно (косинус.. .синус и т. д. ) просто имея обучающие данные. Например, синус: вводим слагаемые и их синус, потом другие слагаемые и он выводит их синус.

Буду очень признателен,
Дорогие друзья.