Посчитать произведение элементов в непустом файле целых чисел (file of integer дописать найденное значение в конец файла.

Var  s           : string;   finish,k,i : longint; begin  assign(input,'input.txt'); reset(input);   assign(output,'output.txt'); rewrite(output);   finish: =0;   while(finish=0) do { если finish будет < > 0 то программа      перестанет читать текст}    begin      writeln('читать? если да, то 0 если нет, то 1');       readln(finish);       k: =0;       if finish=0        then begin                readln(s);                 for i: =1 to length(s) do                  if s[i]=' '                    then inc(k);               end        else exit;       inc(k);       writeln(k);     end; end.

Носи́тель  информа́ции  (информацио́нный  носи́тель)  —  любойматериальный  объект  или  среда[неизвестный  термин]  ,  содержащий  (несущий)  информацию  (и),  способныйдостаточно  длительное  время  сохранять  в  своей  структуре  занесённую  в/на  него  информацию  —  камень,дерево,  бумага,  металл,  пластмассы,  кремний  (и  другие  виды  ),  лента  с  намагниченнымслоем  (в  бобинах  и  кассетах),  пластик  со  специальными  свойствами  (для  оптической  записи  и  —  cd,  dvdи  т.    эми  (электромагнитное  излучение)  и  т.  д.  и  т.  п. носителем  информации  может  быть  любой  объект,  с  которого  возможно  (но  не  обязательно)  чтениеимеющейся  (записанной)  информации. зачастую  сам  носитель  информации  помещается  в  защитную  оболочку,  повышающую  его  сохранность  и,соответственно,  надёжность  сохранения  и  (к  примеру:   бумажные  листы  —  в  обложку,  микросхему  памяти  —в  пластик  (смарт-карта),  магнитную  ленту  —  в  корпус  и  т.  носители  информации  в  быту,  науке  (библиотеки),  технике  (скажем,  для  нужд  связи),  общественной  жизни(сми)  применяются  для: записихранениячтенияпередачи  (распространения)создания  произведений  компьютерного  искусства