uses Robot;
begin
Task('cif2');
while FreeFromRight do
if WallFromUp or WallFromDown then paint;
right
end;
if WallFromUp or WallFromDown then paint
end.
Объяснение:
Надеюсь разберетесь
