цвет([красный, синий, желтый, зеленый, оранжевый, белый]).
форма([круглый, продолговатый]).
размер([большой, средний, маленький]).
вкус([пресный, сладкий, кислый, кислосладкий, горький]).

фрукт(огурец, зеленый, продолговатый, средний, пресный).
фрукт(апельсин, оранжевый, круглый, средний, кислосладкий).
фрукт(яблоко, зеленый, круглый, средний, кислосладкий).
фрукт(яблоко, красный, круглый, средний, кислосладкий).

сок(апельсиновый, апельсин).
сок(яблочный, яблоко).
сок(огуречный, огурец).

вцвет(X):-цвет(Y),writeln('введите цвет '), writeln(Y), read(X).
вформа(X):-форма(Y),write('введите форму '), writeln(Y),read(X).
вразмер(X):-размер(Y),write('введите размер '), writeln(Y),read(X).
ввкус(X):-вкус(Y),write('введите вкус '), writeln(Y), read(X).

какойфрукт(B):-вцвет(X),вформа(Y), вразмер(Z),
    ввкус(A), фрукт(B, X,Y,Z,A), writeln('ваш фрукт') ,writeln(B).

какойсок(X):-какойфрукт(Y), сок(X,Y).