тебе точно уравнение нужно решить, а не программку для "робота"?
uses robot;
begin
task('cif18');
Right;
while CellIsPainted do Right;
Down;
if CellIsPainted then Up else Left;
end.
