Ть рішити ребус т, , граблі‘, , ластівка

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот

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