срочно!! помогите,пожалуйста.Составить блок-схему и программу на языке Паскаль вычисления значений функции y=f(x) для аргумента x, изменяющегося от xn до xk с шагом h.

Можно задачу решать так, как показано ниже (с использованием констант), а можно все данные вводить с клавиатуры.
const xn=-1.5; xk=1.5; h=0.1; b=2;
var x,y:real; i,n:integer;
begin
x:=xn-h;
n:=round((xk-xn)/h)+1;
writeln(' x      y');
for i:=1 to n do
 begin
 x:=x+h;
 if x<1   then y:=x*x-b*sqrt(abs(b*b-x))
  else if x<9 then y:=cos(2*x)-x*x*x
              else y:=ln(abs(2.7*x*x-exp(x)));
 writeln(x:4:1,y:8:3);
 end;
end.