Дано число n. В интервале от 1 до n сложить все четные и перемножить все нечетные числа. - Pascal ABC

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

Дано число n. В интервале от 1 до n сложить все четные и перемножить все нечетные числа. И если не сложно то вот: Найти сумму квадратов четных чисел в интервале, заданном значениями переменных m и n.

Решение задачи: «Дано число n. В интервале от 1 до n сложить все четные и перемножить все нечетные числа.»

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

VAR
  n, i, sum0, mult1: LONGINT;
BEGIN
  WRITE('n=');
  READLN(n);
  sum0 := 0;
  mult1 := 1;
  FOR i := 1 TO n
  DO
    BEGIN
      IF NOT Odd(i)
      THEN
        sum0 := sum0 + i
      ELSE
        mult1 := mult1 * i    
    END;
  WRITELN('Sum=', sum0);
  WRITELN('Mult=', mult1);
  READLN
END.

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

Объявлены четыре переменные: n, i, sum0, mult1 типа LONGINT.
Выводится сообщение n= и считывается значение переменной n.
Инициализируются переменные sum0 и mult1 значением 0 и 1 соответственно.
Запускается цикл от 1 до n.
В каждой итерации цикла проверяется число i на четность.
Если число i нечетное, то оно умножается на mult1.
Если число i четное, то оно прибавляется к sum0.
По завершении цикла выводятся значения sum0 и mult1.
Программа ожидает ввода данных с клавиатуры.