Чим може бути корисним використання вкладених розгалужень чи циклів при складанні програми? нужна

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   range(-50,50,5).tabulate(x-> (x+4)*sqr(x+4)-sin((newline) end. результат: (-50,-97336.2623748537) (-45,-68920.1490964755) (-40,-46655.2548868395) (-35,-29791.4281826695) (-30,-17576.9880316241) (-25,-9261.1323517501) (-20,-4095.08705474927) (-15,-1330.34971215984) (-10,-216.544021110889) (-5,-1.95892427466314) (0,64) (5,729.958924274663) (10,2744.54402111089) (15,6858.34971215984) (20,13823.0870547493) (25,24389.1323517501) (30,39304.9880316241) (35,59319.4281826695) (40,85183.2548868395) (45,117648.149096475) (50,157464.262374854)

Var   i: integer; begin   writeln('число    квадрат');   i: =14;   while i< =24 do   begin writeln(i: 4,sqr(i): 9); i: =i+2 end end. результат выполнения программы: число    квадрат   14          196   16          256   18          324   20          400   22          484   24          576