Найдите сумму, количество и среднее арифметическое всех целых чисел из интервала [100; 200], кратных 17 - Pascal ABC

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

найдите сумму,количество и среднее арифметическое всех целых чисел из интервала [100;200] кратных 17

Решение задачи: «Найдите сумму, количество и среднее арифметическое всех целых чисел из интервала [100; 200], кратных 17»

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

program pr;
var
  i, sum, cout: integer;
  avg: real;
begin
  cout := 0;
  sum := 0;
  for i := 100 to 200 do
    if i mod 17 = 0 then
    begin
      write(' ',i:3);
      cout := cout + 1;
      sum := sum + i;
    end;
  avg := sum / cout;
  writeln;
  writeln('Количество чисел кратных 17: ', cout);
  writeln('Сумма чисел кратных 17: ', sum);
  writeln('Среднее арифметическое чисел кратных 17: ', avg);
end.

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

Создается программа pr с использованием языка Pascal ABC.
Объявляются переменные: i, sum, cout - целочисленные, и avg - вещественное.
Устанавливаются начальные значения для переменных: cout = 0, sum = 0, avg = 0.
Запускается цикл for, который проходит по всем числам в диапазоне от 100 до 200 (включительно).
Внутри цикла проверяется условие: если число i кратно 17 (i mod 17 = 0), то выполняется определенный блок кода.
В блоке кода записывается пробел (write(' ')), затем переменная i выводится на экран (write(i:3)), счетчик cout увеличивается на 1 (cout := cout + 1) и сумма чисел увеличивается на текущее значение i (sum := sum + i).
После выполнения блока кода, вычисляется среднее арифметическое (avg := sum / cout).
По завершению цикла, выводятся результаты: количество чисел кратных 17 (writeln('Количество чисел кратных 17: ', cout)), сумма чисел кратных 17 (writeln('Сумма чисел кратных 17: ', sum)) и среднее арифметическое (writeln('Среднее арифметическое чисел кратных 17: ', avg)).
Программа завершается.