Program vidu2;

    Uses crt;

    Var

        a,b,c: real;

        delta,x1,x2:real;

    Begin

        Clrscr;

        Write(' nhap a,b,c'); readln(a,b,c);

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

        If delta=0 then Writeln('phuong trinh co nghiem kep,' –b/(2*a):0:3) {Không có ;}

            Else If delta>0 then

                begin

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

                    x2:=(-b-sqrt(delta))/(2*a);

                    Writeln('phuong trinh co 2 nghiem,'x1:0:3,x2:0:3);

               end;

        If delta<0 then Writeln('Phuong trinh vo nghiem');

        Readln

    End.

*Chỗ in đậm là chỗ sửa nhé.

Program vidu2;
   Uses crt;
   Var
      a,b,c: real;
      delta,x1,x2:real;
   Begin
      Clrscr;
      Write('Nhap a,b,c: '); readln(a,b,c);
      Delta:=b*b-4*a*c;
      If delta=0 then
         Writeln('Phuong trinh co nghiem kep: ',–b/(2*a)
      Else
         If delta>0 then
            x1:= (-b+sqrt(delta))/(2*a);
            x2:=(-b-sqrt(delta))/(2*a);
            Writeln('Phuong trinh co 2 nghiem phan biet: ',x1:0:2,x2:0:2);
         If delta<0 then
            Writeln('Phuong trinh vo nghiem');
      Readln
   End.