1) ты не можешь копировать/распространять что-либо без согласия автора
2)
Использование его музыки/фильма и т.д в личных целях
3)
Поагиат-копирование материла (сделал он отправил я)
Животные
Кролик
Гусь
Одежда
Футболка
Шорты
Мебель
Стул
Var
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
<span> sl:=' '+sl+' ';</span>
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.