Submission #1275977

---

Source Code Expand

program test;
var
     a, b, c, p, n: integer; 
procedure f;
    begin
        p := (a + b + c) mod 10007;
        a := b;
        b := c;
        c := p;
    end; 
begin
    a := 0;
    b := 0;
    c := 1;
    p := 0;
    readln(n);
    if (n = 1) or (n = 2) then p := 0
    else if n = 3 then p := 1
    else for n := 1 to n-3 do f;
    writeln(p mod 10007);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result