笨小猴

题目描述
笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！
这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。
输入输出格式
输入格式：
输入文件word.in只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。
输出格式：
输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；
第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。
输入输出样例
输入样例#1：
error
输出样例#1：
Lucky Word
2
输入样例#2：
olympic
输出样例#2：
No Answer
0
说明
【输入输出样例1解释】
单词error中出现最多的字母r出现了3次，出现次数最少的字母出现了1次，3-1=2，2是质数。
【输入输出样例2解释】
单词olympic中出现最多的字母i出现了2次，出现次数最少的字母出现了1次，2-1=1，1不是质数。（注：0也不是质数。）

var
  a:array[0..25]of integer;
  i,max,min:longint;
  s:string;
function pd(x:longint):boolean;
var
  i:longint;
begin
  if x<=1 then exit(false);
  for i:=2 to trunc(sqrt(x)) do
    if x mod i=0 then
      exit(false);
  exit(true);
end;
procedure main;
var
  i,j:longint;
begin
  min:=maxlongint;
  for j:=0 to 25 do
  begin
    if (a[j]<>0)and(a[j]<min) then min:=a[j];
    if a[j]>max then max:=a[j];
  end;
  if pd(max-min) then
  begin
    writeln('Lucky Word');
    writeln(max-min);
  end
  else
    begin
      writeln('No Answer');
      writeln(0);
    end;
end;
begin
  readln(s);
  for i:=1 to length(s) do
    inc(a[ord(s[i])-97]);
  main;
end.