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

Question

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

---

Comments

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

Answer 1

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