:
::=|
..::= + - * /

:
go to - ...
if -
then -
else -
do -


begin -
end -


step -


real -
integer -
arraw -
procedure -

:


Pet:=1.00; Sen:=1.00; Vas:=1.62;
Pet, Sen, Vas goto Gastronom1;
[1]:= (Pet+ Sen+ Vas)/3;
Comm :( , )
goto Gastronom2;
[2]:= (Pet+ Sen+ Vas)/3; begin do
goto Skverik
Comm: ( )
if step>0 then goto Pivna:
Pivna: arraw [3,2]
goto; goto; goto;
if step>0 then goto Gastronom1
else Procedure
P(0042) (Pet, Sen, Vas);
end;


1972