hello.pas

Program Fib;

const
    myconst = 12345;

type
    bigass = array[1..100] of integer;
    nummy = (a, b, c, ddd);

var
    n: Integer;
    iii: nummy;
    test: array[0..3] of integer;

function fib1(x: Integer): Integer;
var
    f1: Integer; f2: Integer; f3: Integer; i: Integer;
begin
    f1 := 0;
    f2 := 1;
    i := x;
    while i > 0 do begin
        f3 := f1 + f2;

        f1 := f2;
        f2 := f3;

        i := i - 1;
    end;
    fib1 := f1;
end; {fib1}

function fib2(x: Integer): Integer;
begin
    if x <= 2 then
        fib2 := 1
    else
        fib2 := fib2(x - 1) + fib2(x - 2);
    /* fib2 := not (a + b); */

end; {fib2}

{function main: }

procedure nom;
begin
end;

begin
    nom;
    nom();
    n := 20;
    test[0] := 75;
    test[1] := 52;
    test[2] := 23;
    test[3] := 1337;
    write('fib1(', n, ') = ', fib1(n), eol);
    write('fib2(', n, ') = ', fib2(n), eol);
    write(test[0], ' ', test[1], ' ', test[2], ' ', test[3], ' ', eol);
    iii := ddd;
end.