1. написать программу для вычисления дискриминанта квадратного уравнения 2. написать программу вычисления площади кольца, внешний радиус = 5.8, внутренний - 3.8

1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.

2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.