Code:
Var a, b, c, x1, x2: real;

Procedure Nhapabc(var aa,bb,cc: real);
Begin
Write('a='); Readln(aa);
Write('b='); Readln(bb);
Write('c='); Readln(cc);
End;

Procedure GPTB2;
Var Delta: real;
Begin
Delta:=sqr(b)-4*a*c;
If Delta<0 then Writeln('Phuong trinh vo nghiem.')
Else
If Delta=0 then
Begin
Write('Phuong trinh co nghiem kep : ');
Write('x1,2=',-b/(2*a):8:2);
End
Else
Begin
x1:=(-b+sqrt(Delta))/(2*a);
x2:=(-b-sqrt(Delta))/(2*a);
Writeln('Phuong trinh co 2 nghiem phan biet la :');
Writeln('X1=',x1:8:2,', X2=',x2:8:2);
End;
End;

BEGIN
Writeln(' Giai Phuong Trinh Bac Hai Voi Cac He So :');
Nhapabc(a,b,c);
If a<>0 then GPTB2
Else Writeln(' Khong phai phuong trinh bac hai ');
Readln ;
END .

program PTB2;
uses      crt;
var        a,b,c,D: real;
              x1, x2 : real;
begin
              clrscr;
              write('a= '); readln(a);
              write('b= '); readln(b);
              write('c= '); readln(c);
              D:= sqr(b)-4*a*c;
              if D<0 then writeln('Phuong trinh vo nghiem');
              else
                    begin
                            if D=0 then
                              begin
                                  writeln('Phuong trinh co nghiem kep')
                                  x1:= -b/(2*a);
                                  writeln('x1=x2= ',x1:1:3);
                              end;
                            if D>0 then
                                begin
                                    writeln('Phuong trinh co hai nghiem phan biet');
                                    x1:= (-b-sqrt(D))/(2*a);
                                    writeln('x1= ',x1:1:3);
                                    x2:= (-b+sqrt(D))/(2*a);
                                    writeln('x2= ',x2:1:3);
                                end;
                    end;
                readln
end. 
   
                             

program S_C_HT;
uses crt;
[b]var r, S, C: real;
const pi=3.14;[/b]
begin
....

Var
A, B, C, Delta, X1, X2 : Real;
Begin
Repeat
Write( ' Nhap he so A khac khong :');
Readln(A);
Until A<>0;
Write( ' Nhap cac he so B, C: ');
Readln(B, C);
Delta:=B*B - 4*A* C;
If Delta < 0 then Writeln( ' Phuong trinh vo nghiem ! ');
If Delta = 0 then
begin
X1:=-B/(2*A);
Writeln(' Phuong trinh co nghiem kep X1=X2 = ' , X1:8:2);
end;
If Delta > 0 then
begin
X1 := (-B+ Sqrt(Delta) ) / (2*A);
X2 := (-B - Sqrt(Delta) ) / (2*A);
Writeln('Phuong trinh co hai nghiem :');
Writeln('X1= ' , X1:8:2);
Writeln('X2= ' , X2:8:2);
end;
write(' Chuong trinh duoc viet boi Admin - Nhan phim Enter de thoat chuong trinh...');
Readln;
End.