Pascal :

var
  a,m,y:integer;
begin
  readln(a);
  for y:=1 to 100 do
  for m:=1 to 12 do
  if (2*m+5)*50+y-365=a then write(y,' ',m);
end.