Выберите любую из блок-схем и напишите программу Паскаль

Program zadachaA; 
var x,y:Integer;
 Begin
      Read(x,y);
      While x<16 do
       If x>y 
     Then Begin
                       x:=x-2;    
                       y:=y+4;
      End
      Else begin
                       x:=x+5;
                       y:=y-3;
      End;
 End.