№0054

Описать процедуру Roots(a,b,c,count, x1, x2) определяющую количество корней квадратного уравнения 

a·x² + b·x + c = 0

  (a,b,c — вещественные параметры, a ╪ 0) и сами значения корней, в том случае, если действительные корни существуют. Если D = 0, то вернуть count = 1, а значение корня записать только в переменную x1.