begin procedure mysleep(integer VALUE a); algol "sleep"; mysleep(5); write("5 sec sleep"); end