Câu 2: ( 3 điểm ) Cho chương trình như sau, hãy chỉ ra lỗi sai và viết lại Chương trình được viết lại Chương trình đã cho Lỗi sai PROGRAM Giai_PTB2; USES Crt; Var a, b, c : Real D, x1, x2: Real; BEGIN Clrscr; write(' Nhap cac he so a, b, c : '); readln(a, b, c); D = b*b-4*a*c; If D > 0 Then Begin x1 = (-b-sqrt(D))/(2*a); x2:= -b/a-xl; writeln(' x1 = ',x1:6:2); writeln(' x2 = ',x2:6:2); End. Readln END.
