Сделать блок-схему этой var summa,count,numb : integer; begin summa: =0; count: =0; readln(numb); while numb < > 0 do begin if numb mod 17 = 0 then begin summa: =summa+numb; count: =count+1; end; readln(numb); end; if (summa > 0) and (count > 0) then writeln(summa,' ',count) else writeln('no'); end.