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

Напишите программу в одну строчку без пробелов и запятых маленькими буквами, используя следующие сокращения: u – вверх, d – вниз, l — влево, r — вправо, p — закрасить.

Например, программа, сдвигающая Робота вправо, затем вверх и закрашивающая там клетку будет выглядеть так: rup

rdldrruurddruur

вот ответ все правельно  ;-) НУ ОК ТОГДА ТАК ПРАВО ПРАВО ПРАВО ПРАВО !

право

вниз лево вниз право право вверх вверх право вниз вниз право вверх вверх право

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.