Cho tứ giác phẳng ABCD có AB và CD cắt nhau tại I, AD và CB cắt nhau tại J. Lấy 1 điểm S ngoài mp (ABCD). một mp (a) song song SI cắt SA,SB,SC,SD lần lượt tại M,N,P,Q.
CMR, nếu tứ giác MNPQ là hình bình hành thì SJ // mp(a)
Các bạn giúp mình fix lỗi Pascal với, mình in ra màn hình với kết quả 2 nghiệm phân biệt với nghiệm kép thì không sao, mà xuất ra kết quả vô nghiệm thì máy báo lỗi exitcode= 207
Đề bài: Biện luận và xuất nghiệm đơn thức bậc hai
uses crt;
var a,b,c,delta: integer;
x,x1,x2: real;
begin
clrscr;
writeln('Nhap he so a,b,c cua phuong trinh:');
readln(a,b,c);
delta:=b*b-4*a*c;
x:=(-b) / 2*a;
x1:=((-b) - sqrt(delta)) / (2*a);
x2:=((-b) + sqrt(delta)) / (2*a);
if (delta>=0) then
if delta >0 then writeln('Phuong trinh co hai nghiem phan biet:',x1:0:1,' , ',x2:0:1)
else writeln('Phuong trinh co nghiem kep:',x)
else writeln('Phuong trinh vo nghiem');
readln
end.