笨小猴

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

var
  a:array['a'..'z']of longint;
    s:string;
    i,len,max,min:longint;
    j:char;
function prime(x:longint):boolean;
var i:longint;
begin
  if x<2 then exit(false);//一定要判断小于2的数，比如1
    for i:=2 to trunc(sqrt(x)) do
      if x mod i=0 then exit(false);
    exit(true);
end;
begin
  read(s);
    len:=length(s);
    for i:=1 to len do inc(a[s[i]]);
    max:=0;min:=maxint;
    for j:='a' to 'z' do
      if a[j]>0 then begin
          if a[j]>max then max:=a[j];
            if a[j]<min then min:=a[j];
        end;
    if prime(max-min) then begin
      writeln('Lucky Word');
        writeln(max-min);
    end
    else begin
      writeln('No Answer');
        writeln(0);
    end;
end.