Вопрос, который вызвал трудности

В последовательности чисел найти сумму нечетных, кратных 3. Признак конца ввода ноль.(паскаль с циклом while) срочно нужна помощь

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program pr;
uses crt;

Var chislo, sum:integer;

Begin
Writeln('Введите число');
readln(chislo);
sum:=0;

While chislo<>0 do
  Begin
     if (chislo mod 2<>0) and (chislo mod 3=0) 
       then sum:=sum+chislo; 

      Writeln('Введите число');
      readln(chislo);
   end;

Writeln('Сумма = ', sum);

readln();
end.