{
ID:mjs12302
PROG:ride
LANG:PASCAL
}
program ride;
var
fin,fout:ride;
s,s1:string;
a,b,i,j,k:longint;
begin
assign(fin,'ride.in');reset(fin);
assign(fout,'ride.out');rewrite(fout);
readln(s);
readln(s1);
a:=1;
b:=1;
for i:=1 to length(s) do
a:=a*(ord(s[i])-64);
for j:=1 to length(s1) do
b:=b*(ord(s1[j])-64);
if (a mod 47)=(b mod 47) then writeln('GO')
else writeln('STAY');
close(fin);close(fout);
end.
格式有错吗?
