Наити сумму и количество отрицательных из введенных чисел - Pascal

Формулировка задачи:

Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.

Решение задачи: «Наити сумму и количество отрицательных из введенных чисел»

Листинг программы

var
  a, s, b, i: integer;
 
begin
  for i := 1 to 3
  do 
  begin
    read(a);
    if a < 0
      then b += 1;
    s += a;
  end;
  writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b);  
end.

Объяснение кода листинга программы

Объявление переменных:
- a, s, b, i типа integer.
Начало блока кода:
- begin.
Цикл for перебирает значения от 1 до 3 включительно:
- for i := 1 to 3 do.
Ввод числа с клавиатуры и сохранение его в переменную a:
- read(a).
Проверка, является ли число a отрицательным:
- if a < 0 then.
Если число a отрицательное, то увеличиваем счетчик отрицательных чисел на 1
- b += 1.
Суммирование введенных чисел:
- s += a.
Окончание блока кода:
- end.
Вывод результатов:
- writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b).
Окончание программы:
- end..