problemele su fps

sveiki, gal kas zino kaip padaryt si uzdaviny?

Išnagrinėkite procedūrą ir pateikite visas galimas rezultatų reikš-mes. Kokia turi būti kintamojo n (n > 0) reikšmė, kad parametrai r ir sp įgytų tokias pat reikšmes, kokias turėjo pradžioje?

program skaiciuok;

var n, i,r,sp: integer;

type rasau = (piestuku, parkeriu, tusinuku);

spalva = (zalia, melyna, raudona,juoda);

procedure dirbu (n : integer; var r : rasau;

var sp : spalva);

var i : integer;

begin

for i := 1 to n do

begin

if sp = juoda then sp := zalia;

if r = tusinuku then r :=piestuku;

if r =piestuku then sp := succ(sp);

r := succ( r)

end;

end;

begin

writeln('ivesk');

readln(n);

dirbu (r,sp); //cia kazkas blogai

readln;

end.