Решить в кумире исполнитель робот составьте алгоритм действий, чтобы закрасить всё что указано на первом фото сижу уже час, не могу сделать, )

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

алг

нач

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

закрасить

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

вниз

закрасить

кц

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

вверх

кц

вправо

кц

кон

система счисления - это знаковая система, в которой приняты определённые правила записи чисел. в сс цифры называют узловыми числами. алгоритмические числа состоят из узловых. виды сс: унарная ( зарубки, узлы ), непозиционная ( римская сс ). если мы переводим в десятичную систему счисления, то алфавит (цифры) мы умножаем на основание со степенью. или нам надо перевести наоборот из десятичной сс в другую сс, для этого мы должны разделить число на основание до остатков и записываем с права на лево, кроме двоичной сс, там мы число делим на 2, если делится без остатка, то пишем 0, если с остатком пишем 1.

входные данные

на вход программы две символьные строки, каждая строка завершается символом "конец строки".

выходные данные

программа должна вывести все символы, которые встречаются в обеих строках, в порядке возрастания их ascii-кодов. если таких символов нет, нужно вывести слово 'no'.

примеры

входные данные

qwerty

asdqwhy

выходные данные

qwy

входные данные

qwerty

12345

выходные данные

no

pascal abc 1.8 программа должна быть составлена по теме множества

var set1: set of char;

    set2: set of char;

    s1, s2: string;

    i: integer;

    done: boolean;

    c: char;

begin

set1 : = [];

set2 : = [];

readln(s1);

readln(s2);

for i : = 1 to length(s1) do

  include(set1, s1[i]);

for i : = 1 to length(s2) do

  include(set2, s2[i]);

done : = false;

for c : = #0 to #255 do

  if (c in set1) and (c in set2) then

  begin

    done : = true;

    write(c);

  end;

if not done then

  write('no');

writeln;

end