В головной программе используется модуль farm, который содержит только тип animal и модульную процедуру PrintTitle. Головная программа использует модуль farm.В головной программе объявлена переменная type (animal) AN.
Укажите верное описание типа animal и процедуры PrintTitle, для организации вызова call AN.PrintTitle() из головной программы.
subroutine PrintTitle() write(*,*) "****************" write(*,*) "* ANIMAL *" write(*,*) "****************"end subroutine PrintTitle(Верный ответ)
type animal character(64) name logical, private :: status integer, private :: age contains procedure, nopass :: PrintTitleend type animal(Верный ответ)
type animal character(64) name logical :: status integer :: age contains procedure :: PrintTitleend type animal
subroutine PrintTitle() type (animal) an write(*,*) "****************" write(*,*) "* ANIMAL *" write(*,*) "****************"end subroutine PrintTitle
type animal character(64) name logical, private :: status integer, private :: age contains procedure, pass :: PrintTitleend type animal