Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. Робота есть девять команд. Четыре команды - это команды-приказы: Вверх вниз влево вправо Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находитс. В настоящий момент. Ещё четыре команды — это команды проверки условий. Эти команды проверяют, свободен ли путь дл. Робота в каждом из четырёх возможных направлений: сверху свободно снизу свободно слева свободно справа свободно Для повторения последовательности команд можно использовать цикл «пока», имеющий следующи Вид: нц пока условие последовательность команд кц Выполните задание. P P resory rtors

Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

Var a, b, c, d, a1, b1, c1, d1:real;

begin

a1:=0; b1:=0; c1:=0; d1:=0;

read (a, b, c, d);

if (a<0) or (b<0) or (c<0) or (d<0) then

begin

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Сумма отрицательных = ', a1+b1+c1+d1);

a1:=1; b1:=1; c1:=1; d1:=1;

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Произведение отрицательных = ', a1*b1*c1*d1);

end

else writeln ('Все числа больше либо равны 0');

end.

Объяснение: