ConcreteVitamin

[USACO]打响第一炮，The war of the USACO&me has just began！

Monday, 7. May 2007, 06:29:02

从今征战USACO！
原题http://ace.delos.com/usacoprob2?a=bJQzu0EjihH&S=ride
译题http://www.oibh.org/bbs/viewthread.php?tid=10391&extra=page%3D1
Code

{
ID:yangzon1
PROG:ride
LANG:PASCAL
}
program ride;
var
  star,team:string;
  a,b,i:longint;
begin
  a:=1;
  b:=1;
  assign(input,'ride.in');
  reset(input);
  readln(star);
  readln(team);
  close(input);
  for i:=1 to length(star) do
    a:=a*(ord(star[i])-64);
  for i:=1 to length(team) do
    b:=b*(ord(team[i])-64);
  assign(output,'ride.out');
  rewrite(output);
  if a mod 47=b mod 47 then
    write('GO')
  else write('STAY');
  writeln;
  close(output);
end.

注意事项
·在输入输出文件的末尾换行
·程序起始处加上信息