Как вывести ответ в текстовый файл
Есть программа для подсчёта корней квадратного уравнения написанная в Free Pascal. И текстовый файл results.txt
Как оформить программу дабы ответ выводился в текстовый файл.
Вот программа:
var a,b,c,D,x1,x2:real;
begin
read(a,b,c);
D:=sqr(b)-(4*a*c);
x1=(-b-sqrt(D))/(2*a);
x2=(-b+sqrt(D))/(2*a);
If D>0 then write(x1,x2);
If D<0 then write('корней нет!');
If D=0 then write(x1);
end.
Да кстати кто знает как сделать, чтобы надпись "корней нет" выводилась? А то у меня если дискриминант отрицательный выводиться слово - еррор(и прочая бяка).
Заранее спасибо.