THT/B/QG-2014/guess.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

uses dic;

var
  s: string = '';
  i: byte;
  c: char;

begin
  for i := 1 to 50 do
    begin
      c := get_char_at_pos(i);
      if c = '#' then
        answer(s)
      else
        s := s + c
    end
end.