các lỗi:
1. thiếu ;
2. end trong câu lệnh ff kết thúc bằng dấu ;
3. phép gán là := không phải =
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-x1;
             writeln(' x1 = ',x1:6:2);
             writeln(' x2 = ',x2:6:2);
        End;
Readln;
END.