Основные символы:
цифра::=рубль| копейка
арифм.выр.::= + - * /
Операции следования:
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