Program funkcja kwadratowa Turbo Pascal

program rownanie_kwadratowe;
uses crt;
Var a, b, c, x1, x2, d, x : Real;
begin
clrscr;
write('podaj a=');
readln(a);
write('podaj b=');
readln(b);
write('podaj c=');
readln(c);
if a=0 then
begin
Writeln('Rozwiazywanie funkcji liniowej');
if (b=0) and (c<>0) then
Writeln('Brak rozwiazań');
if (b<>0) and (c<>0) then
begin
x:=(-c)/b;
Writeln('Rozwiaenie x=',x:2:2);
end;
if (b=0) and (c=0) then writeln('Równanie nieoznaczone - nieskończenie wiele rozwiązań');
if (b<>0) and (c=0) then writeln('Rozwiazaniem rownania jest liczba 0');
readln;
end
else
begin
d:=(b*b)-4*a*c;
if d>0 then
begin
x1:=(-b-sqrt(d))/2*a;
x2:=(-b sqrt(d))/2*a;
writeln('rozwiĄzania:');
writeln('x1=', x1:2:2);
writeln('x2=', x2:2:2);
end;
if d<0 then writeln('brak rozwiĄza');
if d=0 then
begin
x:=(-b)/2*a;
writeln('rozwiĄzanie=', x:2:2);
end;
readln;
end;
end.