This is my code.
program Soal03;
var
output:real;
a,b,n:real;
c,d,e,f,g:real;
function lebar(j,i,k: real): real;
begin
lebar:=(i-j)/k;
end;
function fungsi(x: real): real;
begin
fungsi:= (x)/sqrt((x*x)- 2*x + 5);
end;
begin
write('Masukkan a: ');
readln(a);
write('Masukkan b: ');
readln(b);
write('Masukkan N: ');
readln(n);
c:=lebar(a,b,n);
d:=0;
f:=0;
g:=0;
while (d<>b) do
begin
d:=d+c;
e:=d*fungsi(f);
f:=f+c;
g:=g+e;
end;
output:=g;
write('luas kurva adalah ',output:0:4);
end.
it should have an output but when compiled, it doesnt give any output. What did i do wrong?