Az alábbi linken található egy kép. Hogy kell leprogramozni Pascalban függvények segítségével?

*****

valami ilyesmi kellene hogy legyen, csak ez egy másik példa, és nem tudom megcsinálni az én példámra.

program fuggveny;

type tomb=array[1..10]of real;

function elen(n:real):real;

begin

elen:= ln(abs(1+sqr(cos(n))));

end;

function szorzas(k,ig,db:integer;ak,bk:tomb):real;

var p:real;

begin

szorzas:=1;

for n:=1 to ig do

szorzas:=szorzas*(db*bk-sqrt(ak));

writeln('szorzas =', szorzas:8:5);

end;

function osztas(n:real;k,ig,db:integer;ak;bk:tomb):real;

begin

osztas:=elen(n)/szorzas(k,ig,db,ak,bk);

end;

function szamol(n:real; k,ig,db:integer; ak,bk:tomb):real;

begin

szamol:=osztas(4,6,10,2,ak,bk)-1/osztas(0.8,1,3,4,ak,bk)-osztas(49,5,9,3,ak,bk);

end;

const ak:tomb=(0.5,1,3,4.4,2,5,0,2.4,3.3,4.8);

bk:tomb=(1.1,2,3.4,2.1,6,4,0,1.1,2.7,5.4);

x=-0.49;

var s:real;

begin

s:=szamol;

writeln('s= ',s:5:2);

readln;

end.