это очень Задача: На бесконечном поле имеется вертикальная стена. Длина стены неизвестна. Робот находится в одной из клеток, расположенной непосредственно слева от стены. Hапишите для Робота алгоритм, закрашивающий все клетки, расположенные правее вертикальной стены и прилегающиек ней. Робот должен закрасить тольно клетки, удовлетворяющие данному условию. Конечное положение робота может быть произвольным

var

 s, ss: string;

 ls, lss, i, j: integer;

 flag: boolean;

begin

 readln(s);

 readln(ss);

 i := 1;

 ls := Length(s);

 lss := Length(ss);

 flag := false;

 while i <= ls - lss + 1 do

 begin

   if s[i] = ss[1] then

   begin

     flag := true;

     for j := 1 to lss - 1 do

       if s[i + j] <> ss[j + 1] then

       begin

         i := i + j;

         flag := false;

         break

       end;

     if flag then

     begin

       write('является');

       exit;

     end;

   end;

   i += 1;

 end;

 write('не является');

end.

Черный ящик( в информатике) - система, внутреннее устройство которой неизвестно. То есть, мы имеем общее представление о том, что делает эта система, какую информацию на вход нужно подать и то, что система должна вывести, при этом не знаем как она это делает(механизм работы данной системы неизвестен).

Примеры подобной системы:

Любые технические устройства для обычного человека являются тем самым "черным ящиком". Известно, для чего они предназначены, но как они выполняют свою функцию - неизвестно.

Для человека, который не является программистом, любая программа на компьютере - "черный ящик".

В программировании один из примеров черного ящика - вызов функции из библиотеки с неизвестным исходным кодом. Известно, как вызвать эту функцию, известен формат входных и выходных данных, а по какому алгоритму действует функция - неизвестно.