Решите логическую . в вымогательстве подозреваются брагин, кургин и лиходеев. каждый их них дол следующие показания. брагин: “я не участвовал в вымогательстве. это делал лиходеев”. лиходеев: “я не виноват, но и кургин тут ни причём”. кургин: “лиходеев не виновен. вымогательство совершал брагин”. следствием точно установлено, что вымогали двое, кроме того, подозреваемые путались в показаниях и каждый из них не дал полностью правдивых показаний. кто же совершал вымогательства?

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.