Написать блок-схему и программу табулирования функции на заданном промежутке с шагом 0.2 и построить график

uses crt,graphABC;
function y(x:real):real;
begin
y:=1.8*x*x-sin(10*x)
end;
var a,b,x,h,max,min,mx,my,dx:real;
    x0,y0,n,i:integer;
    s:string;
begin
a:=0.2;
b:=2.2;
h:=0.2;
x:=a;
while x<=b+h/2 do
 begin
  writeln('x=',x:4:1,'  y=',y(x):6:3);
  x:=x+h
 end;
write('Нажмите Enter для просмотра графика');
readln;
hidecursor;
clrscr;
x0:=50;
y0:=windowheight div 2;
mx:=(windowwidth-2*x0)/b;{масштаб по Х}
x:=a;
max:=y(x);
min:=max;
while x<b do
 begin
  x:=x+0.01;
  if y(x)>max then max:=y(x);
  if y(x)<min then min:=y(x);
 end;
if max>abs(min) then my:=(y0-20)/max {масштаб по Y}
else my:=(y0-20)/abs(min);
n:=22;
if max>n then n:=trunc(max)+1;
if abs(min)>n then n:=trunc(abs(min))+1;
line(0,y0,windowwidth,y0);{оси}
line(x0,0,x0,windowheight);
for i:=1 to n do{максимальное количество засечек в одну сторону}
 begin
  if i mod 2=0 then
  line(x0+round(i*mx/10),y0-5,x0+round(i*mx/10),y0+5) {засечки на оси Х}
  else line(x0+round(i*mx/10),y0-3,x0+round(i*mx/10),y0+3);
  line(x0+3,y0-round(i*my),x0-3,y0-round(i*my)); {засечки на оси Y}
  line(x0+3,y0+round(i*my),x0-3,y0+round(i*my));
  {подпись оси Х}
  if i mod 2=0 then
   begin
    str(i/10:0:1,s);
    textout(x0+round(i*mx/10)-5,y0+10,s);
   end;
 {подписи по оси Y}
  str(i,s);
  textout(x0-25,y0-round(i*my)-10,s);
  textout(x0-30,y0+round(i*my)-10,'-'+s);
 end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-15,y0-25,'X');
textout(x0+5,8, 'Y');
{график}
x:=a;
dx:=0.001;
while x<=b do
 begin
  x:=x+dx;
  setpixel(x0+round(x*mx),y0-round(y(x)*my),clBlue);
 end;
setfontsize(12);
setfontcolor(clBlue);
textout(x0+130,10,' y=1.8x^2-sin10x');
 
end.