Составить программу в Паскале,по блок-схеме.Пожалуйста.

program wk;
var x,y:integer;
begin
readln(x,y);
 if (1<=x)and (x<=7) then  if ((-x+3) and (x+3)<=y)and ((x+3)and(-x+3)>=y) 
  then writeln('Да')
  else writeln('Нет') 
 else writeln('Нет')
end.