Ребят, нужна хоть какая нибудь консультация. Поэтому подскажите:var d1: text; var c: integer; var d: integer; var f: integer; begin assign(d1,'rab4. txt'); reset(d1); d:=1; while not eof(d1) do begin c:=c+1; readln(d1,f); writeln(c,' ',f); if (f>=12) and (f<=15) and (f mod 2<>0) then d:=d*f; writeln('Текущее произведение =',d, ' элемент равен - ',f); end; writeln('Произведение нечетных чисел в диапазоне 12-15 =',d); end. Правильная ли программа?P. S. Программа связана с файлом, где находится 101 значение, меня не Как узнать сколько это волнует, Как узнать сколько правильность того, что я накарякал тут. . .