---

program Variant5;
var
  s: string;
  target: char;
  i: integer;
  found: boolean;
begin
  // Ввод исходных данных
  write('Введите строку, содержащую цифры: ');
  readln(s);
  
  write('Введите цифру для поиска: ');
  readln(target);
  
  found := false;
  write('Номера позиций: ');
  
  // Поиск цифры в строке
  for i := 1 to length(s) do
  begin
    if s[i] = target then
    begin
      write(i, ' ');
      found := true;
    end;
  end;
  
  writeln;
  
  // Если цифра не была найдена
  if not found then
    writeln('Данная цифра в строке не обнаружена.');
    
  readln; // Задержка экрана
end.