Var I,k,a:integer;

F,f1:fp;

Begin

assign(F,'file.dat');

rewrite(f);

write('Введите размер файла =');

readln(k);

writeln('Введите ',k,' элементов файла:');

for i:=1 to k do

begin

readln(a);

write(f,a);

end;

writeln;

reset(f);

assign(F1,'file1.dat');

rewrite(f1);

writeln('Исходный файл:');

while not eof(f) do

begin

read(f,a);

write(a:5);

if (a>=-1) and (a<=10)

then write(f1,5*a)

else write(f1,a);

end;

close(f);

reset(f1);

rewrite(f);

writeln;

writeln('Измененный файл:');

while not eof(f1) do

begin

read(f1,a);

write(f,a);

write(a:5);

end;

close(f);

close(f1);

readln;

end.