... ',(-b+sqrt(delta))/ (2* a):8 :2) ; writeln('Nghiệm x2= ',(-b-sqrt(delta))/ (2* a):8 :2) ; end else if delta=0 then writeln('Nghiệm kép x1=x2= ',-b/ (2* a):8 :2) else writeln('delta ... Trọng Tài khoản số : 420 8 Cân nợ trước : 24 7.88 Chi trả hiện hành : 25 .00 Ngày trả (dd mm yyyy) : 14 6 1993 Cân nợ mới : 22 2.88 Tình trạng tài khoản : CURRENT Khách hàng số 2 Tên khách hàng ... DIV 2- 32, 2,'Truc x >'); OutTextXY (27 ,-(GetmaxY DIV 2- 5),'^ Truc y'); OutTextXY(0,0,'0,0'); for i:= -400 to 400 do begin x:=Round (2* Pi*i* ScaleX /20 0);...