procedure gpt ;
  var a,b,c,d : real ;
    begin
    writeln('Nhap a,b,c');
     readln(a,b,c);   
    if a=0 then
        begin
        writeln('Ngiem la: ',-b/c:3:2);
        end ;
    if a<>0 then
        begin
        d := b*b - 4 * a * c ;
        if d > 0 then
            begin
            writeln('X1=',(-b+sqrt(d))/2*a:3:2);
            writeln('X2=',(-b-sqrt(d))/2*a:3:2);
            end ;
        if d = 0 then 
            begin
            writeln('X1=X2=',-b/2*a);
            end;
        if d < 0 then 
            writeln('Vo nghiem')
        end ;
    end ; 

uses crt;

var a, b, c, d : real;

procedure BH1(a : real);

    begin

        if a = 0 then writeln('Khong phai phuong trinh bac hai');

    end;

procedure BH2(a : real);

    begin

        if a <> 0 then begin

            d := b * b - 4 * a * c;

            if d > 0 then begin

            writeln('x1 = ', (-b + sqrt(d)) / (2 * a) : 0 : 2);

            writeln('x2 = ', (-b - sqrt(d)) / (2 * a) : 0 : 2); end;

            if d < 0 then writeln('Vo nghiem'); end;

    end;

begin

clrscr;

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

BH1(a); BH2(a);

readln

end.