Нужно разбить код на методы c#ссылка на само , код рабочий, но длинный:

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var (s,k,p,mx,mn): =(0,0,biginteger(,30001);   readseqintegerwhile(t-> t< > 0).where(t-> (t> 0) and (t mod 5=0))       .foreach(t-> begin s+=t; k+=1; p*=t; mx: =max(mx,t); mn: =min(mn,t) end);   writeln('s=',s,', k=',k,', п=',p,', min=',mn,', max=',mx) end. пример 9095 -15199 5068 5310 2534 1136 11454 -17910 3480 -23949 24356 -5077 27301 -25057 -5789 24995 -16013 -5246 -5168 16256 17565 -24551 -229 22412 -3274 20445 3399 -11620 -21875 -18607 0 s=80890, k=6, п=1508567956180663412250000, min=3480, max=24995

Microsoft qbasic 1.0 dim x as double, a as double, b as double, h as double cls input "a=", a input "b=", b input "h=", h for x = a to b + h / 2 step h     if abs(x) < = 1 then           y = 1 / x * x + 1     else           y = x ^ 3 - 5     end if     print x, y next x пример a=0.5 b=6 h=0.25   .5                      2   .75                    2   1                        2   1.25                -3.046875   1.5                  -1.625   1.75                  .359375   2                        3   2.25                  6.390625   2.5                    10.625   2.75                  15.79688   3                        22   3.25                  29.32813   3.5                    37.875   3.75                  47.73438   4                        59   4.25                  71.76563   4.5                    86.125   4.75                  102.1719   5                        120   5.25                  139.7031   5.5                    161.375   5.75                  185.1094   6                        211