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

//Z(x)=cos(2x)sin(x),если переменная х изменяется в промежутке [-5;5] с шагом hx=0.345

PROGRAM B07;
CONST
    min=-5;
    max=5;
    hx=0.345;
VAR
    x,z,k:real;

BEGIN
  x:=min;
 
  while (xlt;=max) do begin
    writeln ('x=', x:6:3, ' ', cos(2*x)*sin(x), ' ' );
    x:=x+hx;
  end;
 
END.