Cod sursa(job #8369)

Utilizator girl_styleBianca Boeriu girl_style Data 24 ianuarie 2007 18:09:15
Problema 1-sir Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
var s:longint;
    n:byte;
    nr:longint;

procedure citire;
begin
  assign(input,'1-sir.in');
  reset(input);
  readln(n,s);
  close(input);
end;

procedure prel(vf:integer;su:longint);
begin
  if vf=n+1 then
   begin
    if su=0 then
      nr:=(nr+1) mod 194767;
   end
            else
    begin
      prel(vf+1,su+vf);
      prel(vf+1,su-vf);
    end;
end;

begin
  assign(output,'1-sir.out');
  rewrite(output);
  citire;
  prel(n,s);
  writeln(nr);
  close(output);
end.