Giúp em bài này với!!!

[netvui97tuoi]

Lỗi là Error in statement chắc là do sử dụng nhiều lệnh if then else và câu lệnh ghép. Mong các bác sửa lại giúp. Thanks

[boyk3n]

Bạn thử dùng code này của mình xem sao

Code:

Program Giai_PTB2;
Uses Crt;
Var a,b,c:longint;
        d,x1,x2:real;
        thoat:char;
begin
        repeat
        clrscr;
        Writeln('Nhap vao 3 so a,b,c cua ptb2 Ax^2 + Bx + C = 0');
        readln(a,b,c);
        if (a = 0) then
        begin
        repeat
        write('Yeu cau he so A khac 0 vui long nhap lai:');
        readln(a);
        until a<>0;
        end;
        d:=sqr(b)-(4*a*c);
        if (d < 0) then
                writeln('PTVN')
        else
                if (d > 0) then
                        begin
                                x1:=((-b)+sqrt(d))/(2*a);
                                x2:=((-b)-sqrt(d))/(2*a);
                                Writeln('PT co nghiem:');
                                Writeln('x1=',x1:8:2);
                                Writeln('x2=',x2:8:2);
                        end
                else
                        begin
                                x1:=(-b)/(2*a);
                                Writeln('PT co nghiem kep:');
                                Writeln('x1=x2=',x1:8:2);
                        end;
        Writeln;
        Write('Ban co muon tiep tuc khong Yes/No (y/n):');
        readln(thoat);
        until thoat='n';

end.