第一次提交题目对于Head还有点生疏。格式应该是这样:
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
{ ID: your_id_name PROG: program_name LANG: PASCAL }
很简单的信心题。
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
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.