Question

Сделать программу в poscal ABC

Answer 1

Program llalala;
Uses crt;
Var a,b,c,d,x1,x2,x:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
If a<>0 then Begin 
                  d:=b*b-4a*c;
                  If d>=0 then Begin 
                                    x1:=(-b+sqrt(d))/2*a;
                                    x2:=(-b-sqrt(d))/2*a;
                                    Writeln('x1=',x1);
                                    Writeln('x2=',x2);
                                    End;
                             else writeln('Нет вещественных корней');
                   End;
             else Begin 
                    x:=-c/b;
                    Writeln('x=',x);
                    End;
End.