/in/foo.cc:33:11: warning: character constant too long for its type
   writeln('Lucky Word');
           ^~~~~~~~~~~~
/in/foo.cc:38:11: warning: character constant too long for its type
   writeln('No Answer');
           ^~~~~~~~~~~
/in/foo.cc:1:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:3:3: error: found ':' in nested-name-specifier, expected '::'
  a:array ['a'..'z'] of longint;
   ^
/in/foo.cc:3:2: error: 'a' does not name a type
  a:array ['a'..'z'] of longint;
  ^
/in/foo.cc:4:2: error: 'max' does not name a type
  max,min,i:longint;
  ^~~
/in/foo.cc:5:2: error: 'k' does not name a type
  k:char;
  ^
/in/foo.cc:6:1: error: 'function' does not name a type
 function prime(n:longint):boolean;
 ^~~~~~~~
/in/foo.cc:7:1: error: 'var' does not name a type
 var
 ^~~
/in/foo.cc:9:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:12:2: error: expected unqualified-id before 'for'
  for i:=2 to trunc(sqrt(n)) do
  ^~~
/in/foo.cc:15:6: error: expected constructor, destructor, or type conversion before '(' token
  exit(true);
      ^
/in/foo.cc:16:1: error: 'end' does not name a type
 end;
 ^~~
/in/foo.cc:17:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:19:10: error: expected constructor, destructor, or type conversion before '(' token
  fillchar(a,sizeof(a),0);
          ^
/in/foo.cc:20:2: error: expected unqualified-id before 'for'
  for i:=1 to length(s) do
  ^~~
/in/foo.cc:22:2: error: 'max' does not name a type
  max:=-maxlongint;
  ^~~
/in/foo.cc:23:2: error: 'min' does not name a type
  min:=maxlongint;
  ^~~
/in/foo.cc:24:2: error: expected unqualified-id before 'for'
  for k:='a' to 'z' do
  ^~~
/in/foo.cc:28:3: error: expected unqualified-id before 'if'
   if (a[k]<min) and (a[k]>0) then
   ^~
/in/foo.cc:30:2: error: 'end' does not name a type
  end;
  ^~~
/in/foo.cc:31:2: error: expected unqualified-id before 'if'
  if prime(max-min) then
  ^~
/in/foo.cc:34:10: error: expected constructor, destructor, or type conversion before '(' token
   writeln(max-min);
          ^
/in/foo.cc:35:2: error: 'end' does not name a type
  end
  ^~~
/in/foo.cc:39:10: error: expected constructor, destructor, or type conversion before '(' token
   writeln(0);
          ^
/in/foo.cc:40:2: error: 'end' does not name a type
  end;
  ^~~
/in/foo.cc:41:2: error: 'readln' does not name a type
  readln;
  ^~~~~~
/in/foo.cc:42:1: error: 'end' does not name a type
 end.
 ^~~