Решите уравнение в PascalABC.net
Task(‘cif18’)

тебе точно уравнение нужно решить, а не программку для "робота"?

uses robot;

begin

   task('cif18');

   Right;

   while CellIsPainted do Right;

   Down;

   if CellIsPainted then Up else Left;

end.