Project1.dpr

   1 program Project1;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 {$R *.res}\r
   6 \r
   7 uses\r
   8   System.SysUtils;\r
   9 \r
  10 var\r
  11   c, d: Char;\r
  12   i, j: integer;\r
  13   s: string;\r
  14 \r
  15 begin\r
  16   try\r
  17     { TODO -oUser -cConsole \83\81\83C\83\93 : \82±\82±\82É\83R\81[\83h\82ð\8bL\8fq\82µ\82Ä\82\82¾\82³\82¢ }\r
  18     Randomize;\r
  19     c:=Chr(Ord('a')+Random(26));\r
  20     j:=Random(Ord('z')-Ord(c))+1;\r
  21     d:=c;\r
  22     for i := 1 to j do\r
  23       d := Succ(d);\r
  24     for i := 1 to 8 do\r
  25     begin\r
  26       Writeln(' '+c+' => '+j.ToString);\r
  27       Readln(s);\r
  28       if s = d then\r
  29       begin\r
  30         Writeln('clear');\r
  31         break;\r
  32       end;\r
  33     end;\r
  34     Writeln(d);\r
  35     Readln;\r
  36   except\r
  37     on E: Exception do\r
  38       Writeln(E.ClassName, ': ', E.Message);\r
  39   end;\r
  40 end.\r