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

Question

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

Answer 1

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

uses robot;

begin

   task('cif18');

   Right;

   while CellIsPainted do Right;

   Down;

   if CellIsPainted then Up else Left;

end.