Напишите программу, которая вычисляет: а) дискриминант квадратного уравнения. б) площадь кольца, если его толщина t см,

а)var y, a, b, c, d, x

у := а*х^2 + b*x + с d := b^2-4*а*сб)var t, d, s: reals := 3.14*( (d/2+t)^2 - (d/2)^2 )