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).