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

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

алг

нач

нц пока снизу стена

 влево

кц

вниз

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

закрасить

вниз

кц

влево

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

вправо

кц

вверх

нц пока слева стена

закрасить

вверх

кц

кон

Код лучше всего писать через верхнюю панель ⇒ "вставка"

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.

Const
    handsfree = true;
    n = 15;

var
    a: array[1..n] of real;
    i: integer;
    sum: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет суммы и произведения}
    sum := 0;
    for i := 1 to n do
    begin
        if a[i] > 10 then
            sum := sum + a[i];
    end;
    writeln('sum = ', sum);
end.