Сколько слов будет найдено (выделено, указано) в процессе автоматического поиска в тексте: «далеко за отмелью, в ельнике, раздалась птичья трель», если в качестве образца задать слово «ель»?

конечно же будет найдено 3 слова.

1) отмелью

2) ельнике

3) трель

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.