Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)

Var a,b,c,d:integer;
begin
writeln('Введите коэффициенты a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
writeln('D = ',d);
end.

Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156

У тебя написано только дискриминант. Я написал, но мне кажется тебе нужны были корни

Var a,b,c,d:integer;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.