Дано все 3-х значные числа найти сумму и колличество чисел, кратных 9.

Var
i, s, k: integer;
begin
s := 0;
k := 0;
//проверяем все 3-значные числа на кратность
for i:=100 to 999 do
  if i mod 9 = 0 then
  begin
    inc(s, i);
    inc(k);
  end;
writeln('Сумма: ', s);
writeln('Количество: ', k);
end.

Минимальное трехзначное число равно 100, максимальное - 999. Первое число, кратное девяти, равно 108 (по признаку делимости сумма цифр числа должна делиться на 9). А затем нужно последовательно прибавлять по 9.

// PascalABC.NET 3.0, сборка 1128
begin
  var p:=Range(108,999,9);
  WriteFormat('Чисел на интервале {0}, их сумма {1}',
    p.Count,p.Sum)
end.

Тестовое решение:
Чисел на интервале 100, их сумма 55350

1. Программы по их юридическому и финансовому статусу можно разделить на три большие группы: лицензионные (платные по скачиванию и лицензии), условно бесплатные (shareware)(нелецензионные, лицензия покупается) и свободно распространяемые программы (freeware) (Бесплатные, лицензированные или взломанные).
2.  Открытое программное обеспечение (open-source software) — Программное обеспечение с открытым исходным кодом. То есть программы находящиеся в свободном доступе.
3. Не всегда бесплатные программы таковыми являются. пользователь платит за лицензию, платит иногда за установку. НО часто сами производители выпускают бесплатные программы для ознакомления.Которые находятся в свободном доступе и со свободной лицензией. Вывод:  бесплатные программы действительно существуют. И бесплатные программы скачивать можно и даже нужно.

Программа:

Pascal:

var

 A: array of integer = (-10, 16, 3, -19, 0, -10, 30);

 i, pr: integer;

begin

 writeln('Массив: ', A);

 write('Отрицательные элементы: ');

 for i := 0 to 6 do begin

   if A[i] < 0 then

     write(A[i], ' ');

   if (A[i] > 0) and (A[i] mod 2 = 0) then

     pr *= A[i];

 end;

 

 writeln(#13, 'Произведение положительных элементов, кратных 2: ', pr);

end.

В начале выделяем память массиву и сразу заполняем его числами. После - регистрируем переменные, которые будем использовать в дальнейшем. Выводим массив, после - выводим просто надпись "отрицательные элементы". После этого циклом проходимся по элементам массива (в ЯП Pascal 1-й элемент массива имеет порядковый номер 0, поэтому цикл от 0 до 6). Если число отрицательное, вывести его; также в этом цикле находим произведение положительных элементов, кратных двум. В конце выводим произведение положительных элементов.