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

