For i:=1 To n Do

Begin

d := d + 1;

End;

Procedure algorytm();

Var i,n,dupa: integer;

n:=100 i dupa:=0

Iteracja

function Silnia(n:Integer):Integer;\

var i: Integer; wynik: Integer;

begin

wynik := 1;

for i:=2 to n do

wynik := wynik * i;

Silnia := wynik;

end;

function Fibonacci (n: integer) : integer;

begin

if n=0 then Fibonacci := 1;

if n=1 then Fibonacci := 1;

wynik := Fibonacci(n-1) + Fibonacci(n-2);

Fibonacci := wynik;

end;

Rekurencja

procedure przyklad(i: integer);

begin

if i < 10 then

begin

writeln(i);

przyklad(i+1);

end;

end;

---