Programovanie v Pascale

Ahojte.
Je tu niekto kto ovláda programovanie v Pascale alebo niečo podobnom ? Bola by som rada, ak by mi niekto pomohol s nasledujucou ulohou.

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.

Treba to dat do code tagov, aby tobolo citatelnejsie.
Treba tam pridat este jednu klauzulu na determinant. V pripade ze D<0 musi to zacat pocitat s imaginarnymi cislami (pod odmocninou nemoze byt nula) (odmocnina z cisla mensiehoako nula, mozebyt prepisana ako odmocnina z absolutnej hodnoty cisla * i^2) (lebo i^2 = -1)

Ďakujem pekne
ibaže problem je v tom, že tento kod mame ako zadanie od profesora... a ako to povedať pekne nenechá si vysvetliť, že tam ma chybu

Akú chybu? Ak rozumiem správne, máte len dopísať podmienku, ak je determinant záporný, tzn. zobraziť komplexné korene rovnice.

no to, že tam nemôže byť tá nula
čiže by som potrebovala konkrétne o akú podmienku tam ide

A ak sa nemylim nie je to determinant ale diskriminant

Áno máš pravdu, ospravedlňujem sa za zámenu názvoslovia.
kikuska222: o akú podmienku ide už popísal void predsa

ved ano, ale ja to potrebujem konkrétne zapísané príkazy v jazyku pascal, aby som dokázala vypočítať a vypísať aj komplexné korene rovnice. Keďže ja sa v tom absolútne nevyznám, vidím to prvýkrát a toto je začiatok nášho učiva aj keď tie základy nemáme.