Стихи

Основные символы:

цифра::=рубль| копейка

арифм. выр.::= + — * /

Операции следования:

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;