ошибка в паскале. переменной не присвоено значение

Question

Program Kvur;

Var a,b,c,k,d:integer;

Begin

WriteLn( 'Нахождение количества корней');

Writeln('Введите значение a= ');

Writeln('Введите значение b= ');

Writeln('Введите значение c= ');

d:=b*b-4*c*a;

if d>0 then k:=2

else if d=0 then k:=1

else k:=0;

WriteLn('Количество корней',k);

end.

спасибо

D M G · Accepted Answer

переменной не присвоено значение
Writeln('Введите значение a= ');

Readln(a);

Writeln('Введите значение b= ');

Readln(b);

Writeln('Введите значение c= ');

Readln(c);

Servak · Answer

при Д=0 2 корня, но равных, х1=х2!!!!