Дан алгоритм для Робота:  

алг

нач

  нц  10 раз

      вправо; закрасить

  кц

кон

  

А)Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 10 клеток вправо и закрасит эти клетки.

Б)Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 10 клеток вправо.

В)Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки.

Г)Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 10 клеток влево и закрасит эти клетки.

​

  var     d,m: byte; begin write('введите день: '); readln(d); write('введите месяц: '); readln(m); case m of 3: if d< 21 then write('рыбы')   else write('овен'); 4: if d< 21 then write('овен')   else write('телец'); 5: if d< 22 then write('телец')   else write('близнецы'); 6: if d< 22 then write('близнецы')   else write('рак'); 7: if d< 23 then write('рак')   else write('леа'); 8: if d< 24 then write('леа')   else write('дева'); 9: if d< 24 then write('дева')   else write('весы'); 10: if d< 24 then write('весы')   else write('скорпион'); 11: if d< 23 then write('скорпион')   else write('стрелец'); 12: if d< 22 then write('стрелец')   else write('козерог'); 1: if d< 21 then write('козерог')   else write('водолей'); 2: if d< 19 then write('водолей')   else write('рыбы'); else write('нет такого месяца') end; end.