fork download
  1. var ans:array[1..20] of string;
  2. n,min,i,j:longint;
  3. a:array[1..20] of string;
  4. temp:array[1..20] of string;
  5. c:array['A'..'Z'] of longint;
  6. b:char;
  7.  
  8. procedure put(k:longint);
  9. var tc:array['A'..'Z'] of longint;
  10. t:array[1..20] of string;
  11. v:boolean;
  12. i:longint;
  13. begin
  14. if k=n+1 then // count to see if all 'A' to 'Z' are included and check for min number of word used
  15. else
  16. begin
  17. inlucde word[k])
  18. increase frequency of each letter in word(k)
  19. check if 'a' to 'z' are included and check for min
  20. if not put(k+1)
  21.  
  22. deduct frequency of word[k]
  23. put (k+1)
  24.  
  25.  
  26. end;
  27. end;
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34. begin
  35. readln(n);
  36.  
  37. for b:='A' to 'Z' do
  38. c[b]:=0;
  39.  
  40. for i:=1 to n do
  41. begin
  42. readln(a[i]);
  43. for j:=1 to length(s[i]) do
  44. inc(c[s[i,j]])
  45. end;
  46.  
  47. for b:='A' to 'Z' do
  48. if c[b]=0 then
  49. begin
  50. writeln('Impossible');
  51. halt;
  52. end
  53. else
  54. begin
  55. min:=999;
  56. put(1);
  57. end;
  58.  
  59.  
  60. readln;
  61. end.
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(8,12) Fatal: Syntax error, "identifier" expected but "(" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout
Standard output is empty