Section 1.1 Your Ride Is Here

第一次提交题目对于Head还有点生疏。格式应该是这样：

Head格式

{
ID: your_id_name
PROG: program_name
LANG: PASCAL
}

 

很简单的信心题。

var s1,s2:longint;
    c:char;
begin
  assign(input,'ride.in');reset(input);
  assign(output,'ride.out');rewrite(output);
  s1:=1;s2:=1;
  while not eoln do
    begin
      read(c);
      s1:=s1*(ord(c)-ord('A')+1);
    end;
  readln;
  while not eoln do
    begin
      read(c);
      s2:=s2*(ord(c)-ord('A')+1);
    end;
  if (s1 mod 47)=(s2 mod 47) then writeln('GO') else writeln('STAY');
  close(input);close(output);
end.