=> khai báo x và không sử dụng

=> khi có các toán tử and, or đưa các vế điều kiện vào ngoặc

uses crt;

var c, d : integer;

begin

clrscr;

write('Ban hay nhap gia tri cua c :');

readln(c);

write('Ban hay nhap gia tri cua d :');

readln(d);

if (c = 0) and (d = 0) then write('Phuong trinh vo nghiem');

if (c = 0) and (d = 0) then write('Phuong trinh vo so nghiem');

if c <> 0 then write('Nghiem cua phuong trinh :', -d/c);

readln;

end.

mấy cái điều kiện đó bạn quăng vô ngoặc là ok

ví dụ :if  c>0 and d<0 then..... --> pascal báo lỗi

sửa if (c>0) and (d<0) then....