Описание слайда:
Текст программы.
run:- write('Input A,B, U:'),nl,
read(A), number(A), read(B), number(B),
read(U), number(U), func(A,B,U,Y),
write('Y = '), write(Y),nl.
func(A,B,U,Y):-U<B,Y is U^2+A.
func(A,B,U,Y):-A=<U,U=<B,Y is B-U.
func(A,B,U,Y):- U>B,Y is (A+B)/(U^2+1).