Parbegin
Varx; integer;ProcessA ProcessB
Var y,zj integer; Var t, u: integer;
Begin Begin
(1) X:=1; K (5) X:=0;
(2) y:=0; (6) t:=0;
(3) ifx>=1 theny:=y+1; (7) ifx<=1 thent:=t+2;
(4) z:=y; (8) u:=t;
End End
Parend