Робот находится на поле размером 5*5 клеток без дополнительных стен. Если робот находится рядом со стеной, то он должен закрасить ту клетку, в которой он стоит. Напишите программу для разного начального расположения робота. ​

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 9)and(a< 99) thens: =s+a; until a=0; writeln(s); end.

трактор

ель

корова

слон

тигр

если не трудно отметь моё решение лучшим.

(если не знаешь,это и тебе даёт +4пкт.)