Нужна помощь в Visual Prolog, расписать листинг в коментариях что данная команда(строка) делает, реб

%раздел доменов


name = string %название судна
type = string %тип (сухогруз, танкер, паром и т.д.)
port = string %порт приписки
vodoiz = integer %водоизмещение
max_v = integer %максимальная скорость (в узлах)
tech_har = tech_har(vodoiz, max_v) %технические характеристики (структурированный домен)
kolvo_pers = integer %количество обслуживающего персонала (чел);
ocean = string %местонахождение в данный момент


predicates %Описание предикатов


nondeterm ship (name, type, port, tech_har, kolvo_pers, ocean) %предикат, содержащий сведения о морском судне
nondeterm ship_name


goal %раздел целей


write("По названию судна напечатать его тип и местонахождения в данный момент"),
ship_name, readchar(_).


clauses %раздел предложений


%набор фактов (около 20), содержащий данные сведения
ship("Капитан Рокотов", "сухогруз", "Абакан", tech_har(50, 34), 50, "Тихий").
ship("Капитан Сухов", "сухогруз", "Абакан", tech_har(70, 23), 20, "Тихий").
ship("Капитан Перов", "ледокол", "Владивосток", tech_har(100, 34), 14, "Атлантический").
ship("Капитан Акимов", "контейнеровоз", "Абакан", tech_har(70, 57), 65, "Индийский").
ship("Николай Гоголь", "пассажирский", "Санкт-Петербург", tech_har(95, 36), 40, "Атлантический").
ship("Ермак", "ледокол", "Владивосток", tech_har(35, 40), 30, "Северный Ледовитый").
ship("Ленин", "ледокол", "Абакан", tech_har(67, 32), 20, "Тихий").
ship("Комсомол", "танкер", "Санкт-Петербург", tech_har(45, 34), 40, "Атлантический").
ship("20 съезд", "сухогруз", "Владивосток", tech_har(38, 34), 20, "Атлантический").
ship("Энгельс", "паром", "Находка", tech_har(80, 67), 30, "Тихий").
ship("Белый бриз", "сухогруз", "Находка", tech_har(90, 45), 30, "Атлантический").
ship("Украина", "танкер", "Находка", tech_har(40, 48), 40, "Атлантический").
ship("Норильск", "ледокол", "Владивосток", tech_har(57, 38), 50, "Тихий").
ship("Лейтенант Шмидт", "сухогруз", "Находка", tech_har(59, 34), 50, "Атлантический").
ship("Лев Толстой", "танкер", "Владивосток", tech_har(69, 34), 45, "Индийский").
ship("Николай Седов", "ледокол", "Владивосток", tech_har(48, 26), 60, "Атлантический").
ship("Родина", "паром", "Севастополь", tech_har(79, 56), 50, "Тихий").
ship("Радуга", "паром", "Севастополь", tech_har(45, 60), 30, "Атлантический").
ship("Московия", "пассажирский", "Севастополь", tech_har(100, 50), 50, "Тихий").


%по названию судна напечатать его тип и местонахождения в данный момент;
ship_name:-
write("\nНазвание судна: "), readln(X),
ship(X, Y, _, _, _, C), \ Что означает это???
write("Тип: ", Y, ". \nМестонахождение: ", C, "\n").
 
Сверху