function polynom_rovnice
p=[7,0,0,0,0,0,1,-6];
x=roots(p);
% disp(x)
for n=1:length(x)
    fprintf('x%d = %07.2f %+07.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

