1. Вычислить корни квадратного уравнения ax²+bx+c=0? заданного коэффициентами а, b, с (предполагается, что а не равно 0 и что дискриминант уравнения неотрицательный).2. Найти сумму членов арифметической прогрессии, если известны первый член, знаменатель и число членов прогрессии.В ПАСКАЛЕ ВСЕ

1)
Var a,b,c:integer; x1,x2,d:real;
Begin
 write(a=); readln(a);
 write(b=); readln(b);
 write(c=); readln(c);
 d:=sqr(b)-(4*a*c);
 x1:=(-b+sqrt(d))/(2*a);
 x1:=(-b-sqrt(d))/(2*a);
 writeln(x1=,x1:0:2);
 writeln(x2=,x2:0:2);
End.

2)
Var x,i,s,n,d:integer;
Begin
 write(Введите первый элемент прогрессии: ); readln(x);
 write(Введите количество элементов в прогрессии: ); readln(n);
 write(Введите знаменатель прогрессии: ); readln(d);
 s:=0;
 for i:=1 to n do
   begin
    s:=s+x;
    x:=x+d;
   end;
 writeln(Сумма элементов арифметической прогрессии равна ,s);
End.