Где ошибка? "переменной не присвоено значение"

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.

Oleg · Accepted Answer

В той строчке, на которую указывает компилятор.
Вопрос на засыпку: чему равно b?

Женя Васильева · Answer

А где по твоему присваивается значение переменным a, b, c?

Роман · Answer

Write('Введите значение a= '); Readln(A);
Write('Введите значение b= '); Readln(B);
Write('Введите значение c= '); Readln(C);

Женя · Answer

Молодчина, Сержант!