Pergunta de entrevista da empresa Cabela's

write as/400 code for logic