Решение дискриминанта на языке программирования Паскаль