predicates
ov(string,string)
fr(string,string)
choice(string,string)
do

clauses
choice(X,Y):-ov(X,Y).
choice(X,Y):-fr(X,Y).

ov(X,"    *** ovoch ***"):-ovoch(X).
ov(X,"Not found"):- not(ovoch(X)),not(ovoch(X)).

ovoch("pomidor").
ovoch("kartoshka").
ovoch("ogurec").
ovoch("svekla").
ovoch("morkov").

%fr(X,"    *** frukt ***"):-frukt(X).
fr(X,"    *** frukt ***"):-frukt(X).
fr(X,"Not found"):- not(frukt(X)),not(frukt(X)).

frukt("vishnya").
frukt("grusha").
frukt("ananas").
frukt("vinograd").
frukt("yabloko").

do:-     %clearwindow,
    write("введите объект иследования: ->  "),
         readln(X),    choice(X,Y),
         write(Y),nl.

goal do.