Pascal

Ahojte.
Je tu niekto kto ovláda programovanie v Pascale alebo niečo podobnom ? Bola by som rada, ak by mi niekto vypracoval nasledujuece zadanie.

Tu je riešenie nasledujúcej úlohy:
Majme zadané koeficienty kvadratickej rovnice a, b, c (ax2 + bx + c = 0). Vypočítajte korene rovnice x1, x2 respektíve počítajte iba jeden koreň, ak má rovnica jeden dvojnásobný koreň.

Doriešte úlohu tak, aby dokázala vypočítať a vypísať aj komplexné korene rovnice.

program kvadraticka_rovnica;

var a, b, c, D, x1, x2: real;

begin
writeln('Zadaj koeficienty kvadratickej rovnice…', #13#10);
write('Zadaj koeficient a: '); readln(a);
write('Zadaj koeficient b: '); readln(b);
write('Zadaj koeficient c: '); readln(c);

{ Determinant }
D := (b * b) - (4 * a * c);

if D = 0 then
begin
x1 := -b / (2 * a);
writeln('Dvojnasobny korenrovnice je: ', x1 : 0 : 2)
end
else if D > 0 then
begin
x1 := -b + sqrt(D) / (2 * a);
x2 := -b - sqrt(D) / (2 * a);
writeln('Koren x1 rovnice je: ', x1 : 0 : 2);
writeln('Koren x2 rovnice je: ', x2 : 0 : 2)
end
else
begin
writeln('Rovnica nema riesenie v mnozine realnych cisel')
end;
end.

https://www.pcforum.sk/pravidla-citajte-pozorne-pred-zalozenim-temy-vt40103.html
A pre pascal je tu kategoria, nabuduce spravne zaradit