/*Данные для объявления*/
predicates
win
goal
win.
clauses
win:-makewindow(1,7,7,"Окно для ввода информации",1,1,19,55),
cursor(1,3),write("Сколько лет мужчине? "),readint(A),
cursor(3,3),write("Какой рост мужчины? "),readint(B),write (B),nl,
cursor(5,3),write("Где он работает? "), readln(C),write(C), nl,
cursor(7,3),write("Первоначальный возраст женщины? "),readint(D),write (D),nl,
cursor(9,3),write("Желательный возраст женщины? "),readint(E),write (E),nl,
cursor(11,3),write("Какая фигура у женщины? "),readchar(F),write (F),nl,
cursor(13,3),write("Какое животное противно мужчине? "),readln(G),write(G),nl,
cursor(15,3),write("Для закрытия окна нажмите любую клавишу"),readchar(_),
clearwindow.
win:-makewindow(2,7,7,"О Б Ъ Я В Л Е Н И Е",1,1,19,55),
cursor(3,20),write("....................."),
cursor(5,5),write(A),
cursor(15,3),write("Для закрытия окна нажмите любую клавишу"),readchar(_).
removewindow.