Кодирование путем повторения символов. Вводится m – нечетное число, задающее кратность повторения, а также последовательность двоичных символов произвольной длины. Программа проверяет нечетность числа m и выдает сообщение об ошибке, если m – четное. В противном случае формируется и выводится на экран результирующая последовательность, в которой каждый символ входной последовательности повторяется m раз подряд.

1) Цикл от 2 включительно, до 20 включительно.
2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие.
А также при i=9 условие не будет выполняться.
3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл.
4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2.
ответ: 2

// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введитие координаты точки');
  if (x<0) and (y>0) then Writeln('Точка лежит во II четверти')
  else Writeln('Точка не лежит во II четверти')
end.

Пример
Введитие координаты точки -4.6 7
Точка лежит во II четверти

begin
  var n:=ReadInteger('Введите двухзначное число');
  if n div 10+n mod 10>9 then Writeln('Сумма цифр больше девяти')
  else Writeln('Сумма цифр не больше девяти')
end.

Примеры
Введите двухзначное число 47
Сумма цифр больше девяти

Введите двухзначное число 81
Сумма цифр не больше девяти