Program untuk membuat suatu integral

Bagi agan-agan yang punya tugas dari dosen untuk buat program integral, nech ane punya script_a,
langsung copas aja gan.


program integral;
uses crt;
var
   intgrlX, mutX, a, u, C: real;
{integrlX adalah integral (du/(a^2-u^2))}
{mutX adalah abs((u+a)/(u-a))}
{C adalah suatu konstanta}
begin
clrscr;
       write ('masukkan nilai a: ');
       readln(a);
       write ('maskkan nilai u: ');
       readln(u);
       mutX := abs((u+a)/(u-a));
       intgrlX := (1/2*a)*ln(mutX)+C;
       write ('Jadi nilainya adalah ',intgrlX:6:1);
readln;
end.