laps(pille, aleksander). laps(jaagup, pille). laps(toomas, jaagup). laps(paula, jaagup). uuring1():- writeln('Kelle lapsi otsid '), read(Kelle), laps(Kes, Kelle), writeln(Kes), false ; halt(0).