Прямоугольная область на экране монитора, которую занимает работающая программа, называется

Окном  программы

молоко в кувшине. квас в банке. вода в стакане лимонад в бутылке доказательство простое. начинаем с молока. по условию, оно не в бутылке, не в банке и не в стакане ("стакан стоит около банки и сосуда с молоком.") значит в кувшине. далее, по условию, в банке не лимонад и не вода. и теперь мы знаем, что и не молоко. значит в банке квас. далее, по условию, вода не в бутылке. а теперь мы знаем, что она и не в кувшине и не в банке. значит вода в стакане. ну и остаётся, что лимонад в бутылке. вся остальная посуда уже

Program project1;   const   //множество разделителей слов.   d = [ ' ' , '.' , ',' , ': ' , '; ' , '! ' , '? ' , '-' , # 9 , # 10 , # 13 ]; var   s , strw , strwmax : string;   i , pos1 , len , lenw , lenwmax , cnt : integer; begin   repeat     writeln ( 'задайте текст: ' );     readln (s );       //обработка текста.     len : = length (s );     lenwmax : = 0;     strwmax : = '';     cnt : = 0;     pos1 : = 0;     for i : = 1 to len do begin       //пропускаем разделители.       if s [i ] in d then continue;       //отслеживаем начало слова.       if (i = 1 ) or (s [i - 1 ] in d ) then pos1 : = i;       //отслеживаем конец слова.       if (i = len ) or (s [i + 1 ] in d ) then begin         //вычисляем длину слова.         lenw : = i - pos1 + 1;         //выделяем слово.         strw : = copy (s , pos1 , lenw );         //если слово совпадает с текущим наибольшим по длине,         //тогда увеличиваем счётчик.         if strw = strwmax then begin           cnt : = cnt + 1;         end else if lenw > lenwmax then begin           //если это очередное слово длиннее всех ранее найденных слов, то           //запоминаем его и его длину и сбрасываем счётчик.           strwmax : = strw;           lenwmax : = lenw;           cnt : = 1;         end;       end;     end;       //показываем результат.     if strwmax < > '' then begin       writeln ( 'первое из самых длинных слов: "' , strwmax , '".' );       writeln ( 'это слово встречается в тексе ' , cnt , ' раз.' );     end else begin       writeln ( 'в строке нет слов.' );     end;       writeln ( 'повторить - enter, выход - любой символ + enter.' );     readln (s );   until s < > ''; end.   находит саммое длинное слово