Ввести файл F . Каждый элемент в файле больший 7 домножить на
результат целочисленного деления этого элемента на 7. Файл вывести до и
после преобразования.
Дважды вычислить значение выражения, первый раз используя процедуру,
а второй – функцию.

//Pascal ABC.NET 3.2 сборка 1318Var  f:text;  n:integer;  s:string;    procedure VoTeRaz(f:text;n:integer;s:string);  begin    writeln('Было:');assign(f,'Input.txt');reset(f);while not(Eof(f)) do  begin    read(f,n);    write(n,' ');    if n>7 then n:=n*(n div 7);    s:=s+inttostr(n)+' ';  end;delete(s,length(s),1);close(f);assign(f,'Input.txt');rewrite(f);write(f,s);close(f);writeln;writeln('Стало:');write(s);writeln;end;function VoTeDva(f:text;n:integer;s:string):integer;  begin    writeln('Было:');assign(f,'Input.txt');reset(f);while not(Eof(f)) do  begin    read(f,n);    write(n,' ');    if n>7 then n:=n*(n div 7);    s:=s+inttostr(n)+' ';  end;delete(s,length(s),1);close(f);assign(f,'Input.txt');rewrite(f);write(f,s);close(f);writeln;writeln('Стало:');write(s);writeln;VoTeDva:=0;end;    beginVoTeRaz(f,n,s);VoTeDva(f,n,s);end.Начальное содержимое Input.txt:81 5 6Пример работы программы:Было:81 5 6 Стало:891 5 6Было:891 5 6 Стало:113157 5 6