Напиши программу в паскале

begin

writeln('введите a,b,c');

readln(a,b,c);

if a=0 then if b=0 then if c=0 then writeln('x любое')

else writeln('нет решений')

else begin

x1:=c/b;

writeln('x=',x1:12:6);

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('x1=',x1:12:6);

writeln('x2=',x2:12:6);

end

else if D=0 then begin

x1:=-b/(2*a);

writeln('x=',x1:12:6);

end

else writeln('нет решений');

end;

readln;

end.