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

Var k, sum, summ: Integer;

begin

summ:=1;

repeat

writeln ('Введите число') ;

readln (k) ;

if (k mod 20) 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 ('Нет таких чисел') else

begin

writeln ('Сумма: ', sum) ;

writeln ('Произведение: ', summ) ;

end;

end.