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

var k,sum,summ: Integer;beginsumm:=1;repeatwriteln('Введите число');readln(k);if (k mod 2<>0) and (k<0) then sum:=sum+k;if (k>0) and (k mod 3=0) then summ:=summ*k;until k=0;if (sum=null) and (summ=1) then writeln('Нет таких чисел') elsebeginwriteln('Сумма: ',sum);writeln('Произведение: ',summ);end;end.