Составить программу на языке pascal: решить квадратное уравнение вида а*х*х+в*х+с=о для произвольных а, в, с.

//pascal var   a, b, c, d, x1, x2: real; begin   write('введите a = '); readln(a);   write('введите b = '); readln(b);   write('введите c = '); readln(c);   if ((a = 0) and (b = 0) and (c = 0)) then       writeln('x любое')   else   if a < > 0 then   begin             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);                       writeln('x2 = ', x2);             end             else             if d = 0 then             begin                       x1: =-b/(2*a);                       x2: =x1;                       writeln('x1 = ', x1);                       //writeln('x2 = ', x2);             end             else             if d < 0 then                   writeln('корней нет.');   end   else   if (a = 0) and (b = 0) then       writeln('решений нет.')   else   if (a = 0) then   begin       x1 : = (-c)/b;       writeln('x = ', x1);   end; end.

program fantscrin;

  const n = 11;

  var a: array [1..n] of integer;

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

   

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

   

  writeln('');

  writeln('сумма = ',s);

  writeln('произведение = ',p);

end.