begin
 ResultURL:=GetURLBase+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g='+copy('Gagarin',1,(GetX*3+GetY)mod 8);
end.