Розміщення малюнка відносно тексту називається... ​

11.01| 101

     |

     | 0.10100110011001100110011001100110011001100110011001

11

--   не делится, добавляем 0 (в частное целые 0)

110

101

---  делится (в частное десятые 1)

---  остаток 1, сносим 1 - мало, (в частное 0 - сотые), сносим 0

  110

  101

   делится (в частное тысячные 1)

   остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0), сносим 0

    1000

     101

      делится (в частное 1)

      остаток 11,сносим 0

      110

      101

      --- делится (в частное 1)

      --- остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0),сносим 0

        1000

         101

          делится (в частное 1)

          остаток 11,сносим 0

          11

        и т д

в 1 программе  значение переменной а больше чем в цикле и  поэтому 10 не меньше 5 и цикл не выполняется

2 ошибка в том, что writeln выводит значение, а после  него еще есть условие про а

Если бы а было меньше пяти,то программа зациклилась из за a:=a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился

Во 2 программе 

s:=s+a/2 получится  не целое число,которое соответсвует типу real  

И  не хватает еще одного действия после   s:=s+a/2;   там должна участвовать переменная a,чтобы получилась полноценная программа