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

readln();end. Что в скобках?

ничего, это readln имитирует паузу,если используете pascal версии ABC.NET то эту строчку можно неписать

Program pr;uses crt;Var chislo, sum:integer;BeginWriteln('Введите число');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.