() В скобках указывай количество клеток, которое робот должен пройти в указанном направлении. Если значение в скобках будет больше, чем нужно, робот упрется в препятствие и продолжит движение согласно коду

1 Аполлон - божество солнца, сын Зевса и Лето, а все остальные планеты
2. Флейта - духовный инструмент, а остальные струнные
3. Рикша - это повозка, а остальные название морских судов
4. Тургенев - писатель, а остальные композиторы
5. Нью-Йорк - город, а все остальные столицы
6. бунгало, иглу, шале  - это жилье, причем тут осень и зима
7. Нил - река в африке, а остальные в Европе
8. Руслан - название самолета, остальные название авто
9. Торф - минерал, остальные твердые ископаемые
10. Кофе - мужского рода, остальные среднего рода

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, а наоборот