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

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.