Использовать оператор While

[kinwood]

Program Lab1_Primer1;
Var   x, y,F: real;
      k: integer;
Function f1:real;
Begin
f1:=ln(a-x)+((exp(1/3)2.71);
End;
Function f2:real;
Begin
f2:=(exp(1.3)-arctan(2x-4))/1+a*sqr(x);
End;
Function f3:real;
Begin
f3:=(sqr(sin))(abs(x+1))+((exp(1/4)a+abc(x-1));
End;
 begin

while -3<=x<1 do

как продолжить хотя бы 1 дальше как я понял аналогично