Mine

seePoisk(A,P1,P2,M1,M2,L1,L2,GG,HH):-
	makewindow(50,100,1,"ProsPotr",0,10,35,70),
	writef("%5|%4|%7|%11|%6|%4|%8|%8|","Pol","rost","vozrast","volos","statia","srok","Tatu","Shramb|"),nl,
	zek(A,B,C,D,E,F,GG,HH),
	B>=M1,B<=M2,
	C>=L1,C<=L2,
	F>=P1,F<=P2,
	Poisk(A,B,C,D,E,F,GG,HH),fail;true.
	
Poisk(A,B,C,D,E,F,GG,HH):-	
		D=0,DD="Brunet(ka)",writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,DD,E,F,GG,HH),nl,readln(H),removewindow,menu;
		D=1,DD="Blondin(ka)",writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,DD,E,F,GG,HH),nl,readln(H),removewindow,menu;
		D=2,DD="Shaten(ka)",writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,DD,E,F,GG,HH),nl,readln(H),removewindow,menu;
		D=3,DD="Rusui(aya)",writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,DD,E,F,GG,HH),nl,readln(H),removewindow,menu.
%		E=0,EE="105",
%		E=1,EE="162",
%		E=2,EE="158",
%		E=3,EE="166",
%	writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,DD,E,F,GG,HH),nl,fail;true,
%	readln(H),removewindow,menu.
see():-makewindow(50,100,1,"ProsPotr",0,0,35,70),
	writef("%5|%4|%7|%11|%6|%4|%8|%8|","Pol","rost","vozrast","volos","statia","srok","Tatu","Shramb|"),nl,
	zek(A,B,C,D,E,F,G,H),	
	writef("%5|%4|%7|%11|%6|%4|%8|%8|",A,B,C,D,E,F,G,H),nl,fail;true,
	readln(HHH),removewindow,menu.