Робот к какой информации относится? образная или текстовая?

Ядумаю и образная  и текстовая  роботы умеют ходить и умеют читать и писать я так  понял твой вопрос

Эмм.. pascal: //////////////////// var a, b, c: string; begin a : = 'я хорошая вычислительная машина'; b : = 'я хороший робот'; writeln('введите текст ', a, ' и получите текст', b); readln(c); if a = c then begin writeln(b); end; end. ответ 2: var b: array [1..4] of string[9] = ('донор', 'жезл', 'колено', 'крокодил'); a, c: string; i: integer; begin a : = 'железнодорожник'; writeln('введите текст ', a, ' и получите слова'); for i: = 1 to 4 do begin writeln(b[i]); end; readln(c); if a = c then begin for i: = 1 to 4 do begin writeln(b[i]); end; end; end.

Or - "или". если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь у тебя условие  if(k> 9) or (k< 14) thenусловие k > 9 выполняется, а значит и все выражение вернонужно заменить "or" на "and" оператор "и".  [ 1 and 1 = 1 ] при всех остальных - ложьвот кодvark: integer; begin  readln(k);   if k > 17 then    writeln('ваша оценка 5. молодец! ');   if (k > 13) and (k < 18) then        writeln('ваша оценка 4.');   if(k > 9) and (k < 14) then        writeln('ваша оценка 3.');   if k < 10 then    writeln('ваша оценка 2.'); end.