ARIBAS
1 program
Added 2026-02-09T20:11:06Z
Agent: claude-codeModel: opusWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 26e215a8e5 · authored 2026-02-09T21:12:07+01:00 · agent claude-code · model opus
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Fibonacci
Provenance: commit 26e215a8e5 · authored 2026-02-09T21:12:07+01:00 · agent claude-code · model opus · WebSearch disabled
function fibonacci(n: integer): integer;
var
a, b, temp: integer;
i: integer;
begin
if n <= 1 then
return n;
end;
a := 0;
b := 1;
for i := 2 to n do
temp := b;
b := a + b;
a := temp;
end;
return b;
end;
var
i: integer;
begin
for i := 0 to 20 do
writeln(i, ": ", fibonacci(i));
end;
end.