Только 1-ый пункт)

Ответ:

Разъясненье:

const

 a = -3;

 b = 3;

function func(in_x:real):real;

begin

 func:=in_x*in_x - 5*in_x - 3;

end;

var

 h:real;

 x:real;

begin

 //h:=0.1;

readln(h);

 x:=a;

 while (x lt;= b) do begin

   writeln('x = ', x, ' f = ',  func(x));

   x:=x+h;

 end;

end.