Для стартовой обстановки, изображенной на рисунке, написана программа. исходное положение робота показано на рисунке. робот должен закрасить клетки, закрашенные в поле желтым цветом. ниже дана программа без 8 и 9 строки. какие команды нужно прописать в этих строках, чтобы программа работала верно?
нач
нц пока справа свободно
вправо
кц
нц пока не справа свободно
вниз
кц


закрасить
вверх
кц
кон​

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.

мало данных для главное - размер пробоины и размер листа

readln (a, b);     -  вводим значения а в

c: =(a+b) * (b-a);   - выполняем уравнение

    writeln (c) -  выводим результат

в итоге получается

с=(7+8)*(8-7)

c=15

соттветственно будет получен результат 15 на экране.