giups mik vs help~~~~~~~~~~~~~~~~~~~~~~~~

uses crt;
var a,b,c,tam:integer;
x,x1,x2:real;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
if a=0 then if b=0 then if c=0 then write('Phuong trinh co vo so nghiem.') 
else write('Phuong trinh vo nghiem.')   
else write('Phuong trinh co 1 nghiem x=',-c/b)  
else 
begin
tam:=b*b-4*c*a;
if tam=0 then write('Phuong trinh co nghiem kep: x =' ,-b/(2*a)) 
else if tam<0 then write('Phuong trinh vo nghiem.')                   
else                                                               
begin
x1:=(-b-sqrt(tam))/(2*a);
x2:=(-b+sqrt(tam))/(2*a);
write('Phuong trinh co 2 nghiem la x1 = ',x1, ' ; x2 = ',x2); 
end;
end;
readln
end.