Безотлагательно!!! Напишите правильное решение этой задачки!

Малые исправления:

1) условие цикла обязано проверять свободное место справа (Free...), а не наличие стенки там (Wall...)

2) внутри цикла закраска должна производиться при стенке сверху И стенке снизу (... and ...),  а не при стенке сверху ИЛИ стенке снизу (... or ...)

вот верная программка:

uses Robot;

begin

Task('cif3');

while FreeFromRight do

begin

if WallFromDown and

WallFromUp then

paint;

right;

end;

if WallFromUp and

WallFromDown then

paint;

end.