Подпрограмма цифра
{
Положить( к );
Шаг вверх;
Положить( к );
Шаг вверх;
Положить( к );
Пауза( 1000 );
Снять плитку;
Шаг вниз;
Снять плитку;
Шаг вниз;
Снять плитку;
Пауза( 1000 );
}
программа
цел i;
{
Перейти на( 7, 7);
Делать от i:=1 до 5
{Вызвать цифра ; 
};
}
