СРОЧНО, МНОГО БАЛЛОВ. ЗАДАЧА НА ПАСКАЛЬ

Ответ:

PascalABC

Объяснение:

uses Robot;

begin

 Task('cc18');

 for var i := 1 to 7 do

 begin

   while not(WallFromRight) do Right;

   Paint;

   while not(WallFromLeft) do Left;

   if not(WallFromDown) then Down;

 end;

end.