function polyn_rovnice
p=[5,0,0,0,0,-5,1];
x=roots(p);
disp(x)
for n=1:length(x)
   fprintf('x%d = %6.3f %+6.3fi\n',n,real(x(n)),imag(x(n))); 
end
f=fopen('data.txt','w');
for n=1:length(x)
   fprintf(f,'x%d = %6.3f %+6.3fi\n',n,real(x(n)),imag(x(n))); 
end
fclose(f);
end

