Составить блок-схему и программу вычисления значений функций

{Составить блок-схему и программу вычисления значений
функций f(x) на отрезке [a,b] в точках x:=x+h ,
где h- шаг цикла, с последующим выводом таблицы значений:
f(x)=x2/2+3(x-1)
xЄ[-3;-1], h=0,2}
program proba;
uses crt;
 
var x,f,b,h:real;
 
Begin
textbackground (16);
CLRSCR;
textcolor (10);
 
h:=0.2;f:=-3;b:=-1; x:=f;
 
f:=sqr(x)/2+3*(x-1);
WriteLn (f);
While x<=b do
             begin
                 f:=sqr(x)/2+3*(x-1);
                 x:=x+h;
                 WriteLn ('Шаг цикла',f:3:2);
             end;
 
While x<=f do
             begin
                 b:=sqr(b)/2+3*(b-1);
                 x:=x+h;
                 WriteLn ('Шаг цикла',b:3:2);
             end;
 
b:=sqr(b)/2+3*(b-1);
WriteLn (b);
 
end.

{Составить блок-схему и программу вычисления значений
функций f(x) на отрезке [a,b] в точках x:=x+h ,
где h- шаг цикла, с последующим выводом таблицы значений:
f(x)=x2/2+3(x-1)
xЄ[-3;-1], h=0,2}
program proba;
uses crt;
function f(x:real):real;
begin
f:=x*x/2+3*(x-1)
end;
var x,a,b,h:real;
 
Begin
textbackground (0);
CLRSCR;
textcolor (10);
a:=-3;
b:=-1;
h:=0.2;
x:=a;
While x<=b+h/2 do
 begin
  writeln('x=',x:4:1,'  f=',f(x):5:2);
  x:=x+h;
 end;
readln
end.