Напишите программу, которая вычисляет дискриминант квадратного уравнения

---

---

Задание 178. Напишите программу, которая вычисляет:

---

а) дискриминант квадратного уравнения:
program disc;
var a, b, c, d: real;
begin
writeln ('a = ');
read (a);
writeln ('b = ');
read (b);
writeln ('c = ');
read (c);
d:=b*b-4*a*c;
writeln ('D = ', d);
end.

б) площадь кольца, если его толщина t см, а диаметр внутреннего круга - d см:
program disc;
var d, t, s: real;
begin
writeln ('d = ');
read (d);
writeln ('t = ');
read (t);
s:=3.14*sqr(d/2+t)-3.14*sqr(d/2);
writeln ('S = ', s);
end.