напишите подпрограмму функцию вычисляющую дискриминант квадратного уравнения
Cassum, создай отдельную тему для вопроса - поможем)))
К тому же, я почти на 100% уверена, что такое уже решалось))
Еще как решалось, причем неоднократно.
Смотри:http://forum.pascal.net.ru/index.php?showtopic=5065