V();
Goto 1;
End;
: begin
2: P();
;
;
Goto 2;
End;
Parend;
End;
, . , . .
Begin integer , ;
:= 0;
Parbegin
: begin
1: ;
P()
;
V(P);
V();
Goto 1;
End;
: begin
2: p();
P(P);
;
V(P);
;
Goto 2;
End;
Parend;
End;
. :
- .
- .
Begin integer , , ;
:= 0;
:= 1;
:= 0;
Parbegin
: begin
1: ;
P()
;
:= + 1;
If ( = 1) then v();
V(P);
Goto 1;
End;
: begin integer ;
: p();
: p(P);
;
:= - 1;
:= ;
V(P);
;
if (C = 0) then goto ;
Else goto ;
End;
Parend;
End;
, . . (). , . , . , (). , .
-,
Begin
Integer , , ;
:=0; :=1; :=0;
Parbegin
: begin
n1: ;
P();
;
:=+1;
if (=0) then begin V(); V(); end
Else V();
Goto n1;
End;
|
|
: begin
n2: P();
:=-1;
if (=-1) then begin V(); P(); P(); end;
;
V();
;
Goto n2;
End;
Parend;
" "
: .
:
- ;
- ;
- , .
-,