Верно. Вот как это должно выглядеть: 

package Up_And_Down is
  type Up_And_Down_Type is limited private;
  procedure Up(U : Up_And_Down_Type);
  procedure Down(U : Up_And_Down_Type);
end Up_And_Down;

Вы можете перейти к следующему разделу.

Вы можете также:

PREVIOUS Вернуться к вопросу

OUTLINE Вернуться к содержанию Урока 6

David A. Wheeler (dwheeler@ida.org)

Перевод: Юрий Королев   Общая редакция перевода: Г.Ю. Сисюк

Исходная копия этого документа находится по адресу "http://www.adahome.com/Tutorials/Lovelace/s6sfr2.htm".

Исходная копия перевода размещена на сайте http://www.ada-ru.org