Написать программу для ГРИС по написанию слова БОР

Робот (чех. robot, robota — еріксіз еңбек, rob — құл; чех жазушысы К. Чапек ойлап шығарған сөз, ол алғашқы ұғымында “жұмысқа шебер адам” мағынасында қолданылды) — антро қ (адам тәрізді) әрекеттер, қимылдар жасайтын машина; адам жүрісі мен қимылын еліктететін автоматтандырылған, адам қажетіне еңбек етуге болады

Робот қоршаған әлеммен әрекеттескен кезде адамның (жануарлардың) қызметтері мен іс-әрекеттерін ішінара немесе толық атқарады. Алғашқы роботтар адамның қозғалысы мен сырт пішінін қайталады. Олар ойын-сауық мақсаттарында пайдаланылды. Қазіргі кезде тұрмыстағы көптеген қызметтерді атқаратын, қадағалайтын, мүгедектер мен сәбилерге көмекші, көңілін аулайтын, т.б. роботтар жасалынды, интеллектуалдық роботтар да пайда бола бастады.

Робот техниканың дамуы барысында адамдарды бір сарынды ауыр жұмыстардан, жоғары радиациялы, жоғары немесе төмен температура жағдайларындағы және адам қатынауы қиын жерлердегі (су астында, ғарышта) жұмыстардан босататын автоматтық құрылғылар мен механизмдер түрінде жасалып, олар үнемі жетілдіріле түсуде. Мұндай құрылғылар мен механизмдер өнеркәсіптік роботтар деп аталады. Өнеркәсіптік роботтар – өндіріс процесінде адамның қозғалу және басқару сияқты іс-әрекеттерін (өндіріс заттарының орнын ауыстыру т.с.с.) және технологиялық құралдардың (айла-тетіктердің) қызметтерін орындайтын автоматтық машина. Адамның қатысуынсыз бір немесе бірнеше технологиялық операцияны, өңделетін бұйымды тиеу мен түсіруді қоса алғанда автоматты түрде орындайтын технологиялық өңдеуші машиналардың, өндірістік машиналардың, тасымалдау және көмекші жабдықтардың жиынтығын робот-техникалық кешен деп атайды. Робот-техникалық кешеннің, әдетте, электрондық есептеу машинасы (ЭЕМ) немесе микроконтроллер негізіндегі бағдарламалық басқару жүйесі болады. Робот-техникалық кешен “адамсыз технологияны” енгізудің негізі болып табылатын икемді өндіріс жүйелерінің бастапқы буыны болып табылады. Робот-техникалық кешенді пайдалану жұмыс күшінің тапшылығы жағдайында өте маңызды.

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