Робот - while новая тема

   В системе программирования PascalABC выполните проверяемое задание w1 для исполнителя Робот (пройти коридор переменной длины).

Решение:

uses Robot;

begin

Task('w1');

While FreeFromRight do

   begin

     right;

   end;

end.