Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c - коэффициенты квадратного уравнения затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt. ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

В Паскале программа будет выглядеть следующим образом:

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:0:2, ', x2 = ', x2:0:2);
assign(outputFile, 'korni.txt');
rewrite(outputFile);
writeln(outputFile, 'Корни уравнения: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
close(outputFile);
end
else if D = 0 then
begin
x1 := -b / (2 * a);
writeln('Уравнение имеет один корень: x = ', x1:0:2);
assign(outputFile, 'korni.txt');
rewrite(outputFile);
writeln(outputFile, 'Уравнение имеет один корень: x = ', x1:0:2);
close(outputFile);
end
else
begin
writeln('Уравнение не имеет действительных корней');
assign(outputFile, 'korni.txt');
rewrite(outputFile);
writeln(outputFile, 'Уравнение не имеет действительных корней');
close(outputFile);
end;
end.

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