Bardzo proszę o pomoc z rozwiązaniu zad z załącznika.
Napisałam taki program , ale nie wiem czy jest to dobrze zrobione :
uses crt,sysutils;
var
eps,temp,z,z0,krok,zasieg,wynik:real;
p:text;
i:integer;

function fbo(eps,z0,temp,z:real):real;
var
z3,u:real;

begin
if(z/z0<0.5) then fbo:=-1 else
begin ...