Дано квадратне рівняння типу ax²+bx+c=0. Користувач вводить коефіцієнти і програма вираховує, використовуючи функцію, і виводить результати.

---

program equation;
uses crt;

function D(a, b, c:real):real; {функція, що шукає дискримінант}
var dis:real;
begin
  dis:=sqr(b)-4*a*c;
  D:=dis;
end;

var a, b, c:real;
begin
  clrscr; {чистимо екран­}

  write('a='); readln(a);
  write('b='); readln(b);
  write('c='); readln(c);

  if( D(a, b, c)>0 ) then {якщо дискримінант більше нуля}
  begin
    writeln( 'x1=', ( -b-sqrt(D(a, b, c)) )/(2*a) );
    writeln( 'x2=', ( -b+sqrt(D(a, b, c)) )/(2*a) );
  end
  else
  begin
    if( D(a, b, c)=0 )then {якщо дискримінант рівний нулю}
    begin
      writeln('x1=x2=', -b/(2*a) )
    end
    else{якщо дискримінант манший нуля}
    begin
      writeln( 'x1=', -b/a, '-', abs(D(a, b, c)), 'i' );
      writeln( 'x2=', -b/a, '+', abs(D(a, b, c)), 'i' );
    end;
  end;

  read(a); {зупиняємо програму вводом змінної}
end.