Вводятся целые числа, окончание ввода цифра 0 - Pascal ABC

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

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

Решение задачи: «Вводятся целые числа, окончание ввода цифра 0»

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

var a,s,p:integer;
begin
writeln('Введите целые положительные и отрицательные числа, окончание вода 0 ');
s:=0;
p:=1;
a:=1;
while a<>0 do
 begin
  readln(a);
  if(a<0)and odd(a) then s:=s+a
  else if (a>0)and(a mod 3=0)then p:=p*a;
 end;
if s=0 then writeln('Нет отрицательных нечетных чисел')
else writeln('Сумма отрицательных нечетных чисел=',s);
if p=1 then write('Нет положительных чисел, кратных 3')
else write('Произведение положительных чисел, кратных 3=',p)
end.

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

Объявлены три переменные: a, s, p типа integer.
Переменная s инициализируется значением 0, переменная p — значением 1, переменная a — значением 1.
Запускается цикл while, который выполняется до тех пор, пока значение переменной a не станет равным 0.
В каждой итерации цикла происходит чтение значения переменной a с помощью функции readln.
Если значение переменной a отрицательное и является нечетным числом, то к переменной s прибавляется значение переменной a.
Если значение переменной a больше 0 и является кратным 3, то значение переменной p умножается на значение переменной a.
После окончания цикла while выполняются условия для вывода результатов: — Если переменная s равна 0, то выводится сообщение Нет отрицательных нечетных чисел. — Иначе выводится сообщение Сумма отрицательных нечетных чисел=, а затем значение переменной s. — Если переменная p равна 1, то выводится сообщение Нет положительных чисел, кратных 3. — Иначе выводится сообщение Произведение положительных чисел, кратных 3=, а затем значение переменной p.