Вводятся 3 числа a, b, c. d = b^2 - 4ac. если d < 0, то вывод: корней нет. если b > 0, то корни есть. можете ещё составить схему)

Чтобы узнать чему равен дискриминант, после строчки else напиши:

writeln ('d= ', d:4:2);