Matematické Fórum

Ahoj,
potřeboval bych pomoct s úkolem. Zadání je následující:


Napsal jsem tohle:

program kvadratickarce;
var a, b, c, x1, x2, D: real;
begin
  write('a : ');
  readln(a);
  write('b : ');
  readln(b);
  write('c : ');
  readln(c);
  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:3');
    writeln('x2, x2:0:3');
    end
    else
    writeln('N');
  end.

Nevím si ale rady s tím vzestupným seřazením jednotlivých řešení a taky je dost možné, že mám v programu nějaké další chyby, protože s programováním teprve začínám.

Budu vděčný za vaše rady.