Данным А1 А4 соотвествует круговая диограмма номер 2
Напиши там что-нибудь например что он там вредит здоровью зрение портит излучение мдёт
Var a, b, c, x1, x2, D:real;
begin
writeln ('Введите значение a, b и c');
readln (a, b, c);
D:=sqr(b)-4*a*c;
if D>0 then
begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
writeln ('x1 = ', x1, ' x2 = ', x2)end
else
writeln ('Корней нет');
<span>end.</span>