Задача с функциями - Free Pascal

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

Пользователь вводит два ряда чисел, первая функция должна сложить в первом ряду такую последовательность чисел(1,3,5,7..и.т.д), вторая функция должна сложить во втором ряду такую последовательность чисел(2,4,6,8..и.т.д) Главное нельзя использовать: стандартные функции,массивы, модули.

Имеется ввиду: первая функция складывает не парные числа из первого ряда чисел. Вторая функция складывает парные числа из второго ряда чисел.

Решение задачи: «Задача с функциями»

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

function nechet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 <> 0 then
      sum := sum + x;
  until x = 0;
  nechet := sum;
end;
 
function chet: real;
var
  x: integer;
  sum: real;
begin
  repeat
    readln(x);
    if x mod 2 = 0 then
      sum := sum + x;
  until x = 0;
  chet := sum;
end;
 
begin
  writeln('Сумма нечетных: ', nechet);
  writeln('Сумма четных:   ', chet);  
end.

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

Написан код на языке Free Pascal.
Задача заключается в подсчете суммы четных и нечетных чисел.
Объявлены две функции: nechet и chet.
В каждой функции объявлены две переменные: x и sum.
Переменная x используется для хранения введенного числа.
Переменная sum используется для хранения суммы чисел.
В каждой функции используется цикл repeat-until для чтения чисел до тех пор, пока не будет введено ноль.
Если число нечетное (x mod 2 <> 0), то оно добавляется к сумме в функции nechet.
Если число четное (x mod 2 = 0), то оно добавляется к сумме в функции chet.
Функции nechet и chet возвращают сумму нечетных и четных чисел соответственно.
В основной части программы вызываются функции nechet и chet, и выводятся результаты.
Результат вычислений выводится на экран с помощью функции writeln.
Результатом выполнения программы будет сумма нечетных и четных чисел.