Вычислить значения функции y=f(a, b, x) при заданных значениях аргумента x и коэффициентов a и b. pascal a*x^3-b*sinx

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

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

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

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

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

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

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

                                                            конецесли;

                                                           

                              конеццикла;

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.