procedure foo
    function bar
    begin
        bar = 700000000.1
    end
begin
    tmp = bar
end
{ Beginn des Hauptprogramms: }
begin
    foo;
    zahl = 000042 + 8
end