Написать программу решения квадратного уравнения, вычисления произведений: а) a*(a+1)*(a+2)**(a+n-1); б) 2*4*6**(2*n

A) var   a,b,c,n: integer; begin   readln(a,n);   b: =1; c: =a*(a+1);   repeat   b: =b+1;     c: =c*(a+b); until b=n-1; writeln(c); readln; end.

1.  var   n, i: integer;   a, sum, mul: real; begin   sum : = 0;   mul : = 1;   readln(n);   for i : = 1 to n do   begin     readln(a);     sum : = sum + a;     mul : = mul * a;   end;   writeln('сумма = ', sum);   writeln('произведение = ', mul) end. 2.var   k, less: integer;   a: real; begin   less : = 0;   readln(k);   readln(a);   while a < > 0 do   begin     if a < k then       inc(less);     readln(a);   end;   writeln(less) end.

для н=100 по 999 цикл

                                                            стр = формат(н, "чрг=; чг=");

                                                            ч1 = лев(стр,1);

                                                            ч2 = сред(стр,2,1);

                                                            ч3 = сред(стр,3,1);

                                                            если не (ч1 = ч2 или ч1 = ч3 или ч2 = ч3) тогда

                                                                                            сообщить(н);

                                                            конецесли;

                                                           

                              конеццикла;