Cod sursa(job #572977)

Utilizator alinhAlin H alinh Data 5 aprilie 2011 19:38:41
Problema Iepuri Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
const
  fi = 'iepuri.in';
  fo = 'iepuri.out';

var
  f : text;
  g : text;

  t : byte;
  x, y, z, dublujm : longword;
  a, b, c : longword;
  n : longword;
  k : byte;
  i : word;

procedure inmultire;
  begin
    for i:=2 to n-1 do
      begin
        dublujm := (z*a + y*b + c*x) mod 666013;
        x:= y;
        y := z;
        z := dublujm;
      end;
    writeln(g,dublujm);
  end;

procedure citire;
  begin
    assign(f,fi);
    reset(f);

    assign(g,fo);
    rewrite(g);

    read(f,t);
    for k := 1 to t do
      begin
        read(f,x,y,z,a,b,c,n);
        inmultire;
      end;
    close(f);
    close(g);
  end;

begin
  citire;
end.