rect(Length,Width) :-
		Area is Length*Width,
		Perimeter is (Length+Width)*2,
		write(‘Area of rectangle is ’),
		write(Area),nl,
		write(‘Perimeter is ’),
		write(Perimeter),nl.