Составить блок-схему к программе на paskal

uses crt;
var
x,y:real;
begin
clrscr;
writeln ('Vvedite x ');
read(x);

if (x>=1) and (9>x) then
begin y:=16.5*x+9*x*x-1.25*x*x*x;
writeln('y= ',y:2:3);
end;
if x<1 then writeln('y=0');
if x>=9 then writeln('y=0');
readkey;
end.

Сама задача звучит так: Сост. блок-схему и программу вычисления значения величины: Y= 16,5x+9x^2, если 1<=x<9 Y=0, если x<1 или x>=9