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

Ну то есть, не программу, а кусок программы?

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