radici

program radici;
const m=5;
type c=array[0..m] of real;
CONST T=1e-5;s=1e-4;
var x,y:real; a:c; i,n:byte;
Function g(x:real; a:c):real;
var i:byte; f:real;
begin
f:=a[0]; for i:=1 to n do f:=f*x+a[i]; g:=f;
end;
begin
write('grado (<=',m,'):'); repeat readln(n); until n<6;
for i:=1 to n do begin
repeat
x:=x+t;
until abs(g(x,a))<>
writeln(x:0:3)*t;
end;
end.

*non mi accettava il simbolo di minore perchè considerato tag