Перевод чисел із м->км і навпаки із км ->м. При цьому для вашаго користувача повинна викидуватися підсказка, що саме йому потрібно вводити чи це будуть метри чи це потрібно ввести кілометри. Але після того як він зробить вибір що саме потрібно переводити.

использовать Робот

алг

нач

нц пока слева стена

 закрасить

 вверх

кц

нц пока справа свободно

 закрасить

 вправо

кц

нц пока справа стена

 закрасить

 вверх

кц

вниз

кон

использовать Робот

алг

нач

нц пока снизу свободно

 вниз

кц

нц пока снизу стена

 влево

кц

вниз

нц пока справа свободно

 вправо

 если сверху стена то закрасить все

кц

нц пока слева свободно

 нц пока клетка чистая

   если слева свободно то влево

     иначе стоп все

   нц пока клетка закрашена

     нц пока снизу свободно

       вниз

       закрасить

     кц

     нц пока сверху свободно

       вверх

     кц

     влево

   кц

 кц

кц

кон

использовать Робот

алг

нач

нц пока справа свободно

 вправо

кц

нц пока справа стена

 вверх

кц

вправо

нц пока снизу свободно

 вниз

 закрасить

кц

нц пока снизу стена

 закрасить

вправо

кц

кон

Объяснение:

надеюсь без скинов норм

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