Язык программирования Паскаль. Помогите написать программу по задаче (пример №2). Все задание во вложениях.

1. function f( x: float ): float;var i: integer;beginfor i := 0 to size-1 doif (fx[ i ] <= x) and (x <= fx[ i+1 ]) thenbeginf := (fy[ i+1 ] - fy[ i ]) / (fx[ i+1 ] - fx[ i ]) * (x - fx[ i ] );break;end;end;...x := a;dx := (b-a) / 10;while (x <= b) dobeginwriteln( x, ' => ', f(x) );x := x + dx;end;2. sqrt( pow( x, 4/5 ) + pow( x, (4-x)/5 ) ) + ln( abs(x-0.25) )