Пример программы на Pascal:

program QuadraticEquation;
var
inputFile, outputFile: Text;
a, b, c, D, x1, x2: real;
begin
Assign(inputFile, 'kvur.txt');
Reset(inputFile);
Readln(inputFile, a, b, c);
Close(inputFile);
D := b * b - 4 * a * c;
if D > 0 then
begin
x1 := (-b + sqrt(D)) / (2 * a);
x2 := (-b - sqrt(D)) / (2 * a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
Assign(outputFile, 'korni.txt');
Rewrite(outputFile);
writeln(outputFile, 'x1 = ', x1);
writeln(outputFile, 'x2 = ', x2);
Close(outputFile);
end
else if D = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1);
Assign(outputFile, 'korni.txt');
Rewrite(outputFile);
writeln(outputFile, 'x = ', x1);
Close(outputFile);
end
else
begin
writeln('Корней нет');
Assign(outputFile, 'korni.txt');
Rewrite(outputFile);
writeln(outputFile, 'Корней нет');
Close(outputFile);
end;
end.

Эта программа считывает коэффициенты квадратного уравнения из файла kvur.txt, вычисляет корни уравнения и выводит их на экран, а также записывает результат в файл korni.txt.