ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА Задача в Паскале: Составить таблицу значений функции…

№1var a, b, c, i: integer; y, x: real; beginx: =-2; while x<>2 do begin writeln (x, ', (exp (x)+exp (-x) /2-x*x*x*x); x: =x+0,25; end; end. Первый номер, чтобы не было нарушения.№2var a, b, c, i: integer; y, x: real; beginx: =0; while x<>4 do begin writeln (x, ', sqrt (x*x+5*x+3); x: =x+0,25; end; end.P.S. Надеюсь на благодарность и лучший ответ.