Сколько раз выполняется цикл в фрагменте программы: a: =1; b: =1; while a+b < 8 do begin a: =a+1; b: = b+2 end.

Два раза.
2 + 3 = 5 - меньше 8 еще разок выполним, так как 5 < 8 = Истина
3 + 5 = 8 - равно 8 цикл остановлен,  так как 8 < 8 = Ложь  

Скриншот всего экрана делается путем нажатия на клавишу PrtSc. Если нужен скриншот только активного окна, то комбинацией клавиш Alt+PrtSc.
После этого изображение попадает в буфер обмена. Надо не забывать, что запуск некоторых приложений очищает буфер обмена; на эту удочку не раз попадались любители вставлять скриншоты в Word, поэтому лучше заблаговременно запустить программу, в которой планируется обрабатывать скриншот, свернуть её и потом делать нужный скриншот.
Проще всего скриншот обработать в программе Paint, входящей в состав Windows. Сделав скриншот, заходим в Paint и из меню выбираем "Файл" - "Создать". Будет создан некоторый "холст" с размерами по умолчанию. У меня размер по умолчанию стотит 50х50 пикселей. Чтобы его задать, надо в меню выбрать "Рисунок" - "Атрибуты", выставить ширину и высоту по 50, единицы измерения - точки, палитра цветная. Потом нажать "По умолчанию", выйти из Paint и снова зайти. А можно, заходя в Paint, ставить тот размер, какой надо, и нажимать ОК.
Итак, создали маленький пустой холст. Нажимает Ctrl+V - это команда вставки изображения из буфера. Paint поймет, что картинка на хост не помещается и предложит расширить холст. Соглашаемся и вот уже картинка в редакторе. Почему лучше так, а не заранее создавать холст нужного размера? Во-первых, лень запоминать, сколько надо точек выставлять. Во-вторых, при любой вставке холст автоматически подгоняется под размер картинки.
Теперь можно редактировать картинку, периодически сохраняя её, чтобы не потерять при ошибках. По окончании редактирования выбираем "Файл" - "Поместить в центр рабочего стола". Если разрешение экрана не менялось после скриншота, картинка встанет точно по размеру.

var
  x, y, z: integer;
begin
  writeln('-1 - конец ввода и вывод суммы');
  repeat
    readln(y);
    
    if (y < -1) then 
      writeln('Эм... Не, не съем: отрицательная цЫфра.')
    else
      if (y >= 0) then 
        z := z + y
      else
        if (y = -1) then
          if (z >= 100) then
            break
          else
            writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');
 
    if (z > 1000) then
    begin
      writeln('Всё, перевес. Сумма чисел больше 1000.');
      exit;
    end;
    
    until (false);
  writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10);
end.