Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции

program func;
uses Crt;
var a, b, x, y:real;

function f(var x:real):real;
  begin
     f:=sin(x)-2*cos(x);
   end;

begin
 ClrScr;                {Очистка экрана}
 Write (' a= ');  ReadLn(a);
 Write (' b= ');  ReadLn(b);
 WriteLn;
 x:=a;
 while x<=b do
   begin
     y:=f(x);
     WriteLn ('y(', x:1:0, ')= ', y:4:2);
     x:=x+1;
    end;
ReadLn;
end.