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

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.