Cod sursa(job #1141544)

Utilizator laura.calimanLaura Caliman laura.caliman Data 12 martie 2014 22:33:50
Problema Iepuri Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var t,x,y,z,a,b,c,n,i,j,v:longint;

begin
  assign(input,'iepuri.in');
  assign(output,'iepuri.out');
  reset(input);
  rewrite(output);
  
  read(t);
  for i:=1 to t do begin
    readln(x,y,z,a,b,c,n);
    for j:=3 to n do begin
      v:=(z*a+y*b+x*c) mod 666013;
      x:=y;
      y:=z;
      z:=v;
    end;
    writeln(v);
  end;
end.