Дан алгоритм для Робота:
алг
нач
нц 27 раз
вправо; закрасить
КЦ
кон
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток вправо и закрасит эти клетки.
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток вправо.
ОЕсли правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на п клеток вправо и закрасит эти клетки.
ОЕсли левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится
на 27 клеток влево и закрасит эти клетки.
ответить!
лава РУС
​

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.

2000*2000=625 кб возможно но я неуверена

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1