1) Distribusi Eksponensial
program expo;
uses wincrt;
var
i,
n:= integer;
e,
f:= real;
begin
e:=
1; i:= 0; n:= 10; f:= 1;
repeat
i:=
i + 1;
Orang bilang waktu akan merubah segalanya... Sesungguhnya kau sendirilah yang harus merubahnya... Tanpa menunggu kapan waktu berubah...