%process1 -> kochak bozorg bodan safe -> k,b
਍─ⴀⴀⴀⴀⴀⴀⴀⴀⴀ猀愀昀攀 渀愀洀愀椀攀猀栀攀 欀漀挀栀愀欀ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀഀ
%process2 -> hazine baraie kharid -> high, low
਍─瀀爀漀挀攀猀猀㌀ ⴀ㸀 漀猀 琀愀戀氀攀琀 ⴀ㸀 愀渀搀爀漀椀搀㴀愀 Ⰰ 椀漀猀㴀椀 Ⰰ 愀栀洀椀愀琀 渀愀搀愀爀攀㴀戀ഀഀ
%process4 -> systeme amazon prim -> y,n
਍─瀀爀漀挀攀猀猀㔀 ⴀ㸀 爀攀稀漀氀漀琀椀漀渀 戀愀氀愀 瘀愀 瀀愀攀椀渀 ⴀ㸀 礀Ⰰ渀ഀഀ
%-----------safe namaieshe bozorg-------------
਍─瀀爀漀挀攀猀猀㘀 ⴀ㸀  栀愀稀椀渀攀 戀愀爀愀椀攀 欀栀愀爀椀搀 ⴀ㸀 栀椀最栀Ⰰ 氀漀眀ഀഀ
%process7 -> aia ziad ahle bazi kardan hastid -> y/n
਍─瀀爀漀挀攀猀猀㠀 ⴀ㸀 漀猀 琀愀戀氀攀琀 ⴀ㸀 愀渀搀爀漀椀搀㴀愀 Ⰰ 椀漀猀㴀椀 Ⰰ 愀栀洀椀愀琀 渀愀搀愀爀攀㴀戀ഀഀ
%process9 -> aia shoma be ghalam ehtiaj darid -> y/n
਍ഀഀ
tablet_name('آیپدمینی',1).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀∀찆縆⼆ 䔀찆䘆찆 ✀찆ㄆ✆Ⰰ㄀⤀⸀ഀഀ
tablet_name('کیندل فایر اچ دی ایکس',4).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀꤀찆䘆⼆䐆 䄀✆찆ㄆ ✀蘆 ⼀찆 ✀찆꤆㌆ 䘀찆䠆✆Ⰰ㐀⤀⸀ഀഀ
tablet_name('لکسوس 7',3).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀䐀꤆㌆䠆㌆ 㠀✀Ⰰ㌀⤀⸀ഀഀ
tablet_name('لکسوس نیو',3).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀꤀찆䘆⼆䐆 䄀✆찆ㄆ ✀蘆 ⼀찆 ✀찆꤆㌆ 㠀　㤀 ✀Ⰰ㜀⤀⸀ഀഀ
tablet_name('کیندل فایر اچ دی ایکس 809 نیو',7).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀꤀찆䘆⼆䐆 䄀✆찆ㄆ ✀蘆 ⼀찆 㠀　㤀 ✀Ⰰ㠀⤀⸀ഀഀ
tablet_name('کیندل فایر اچ دی 809 نیو',8).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀∀찆縆⼆ ✀찆ㄆ ✀Ⰰ㔀⤀⸀ഀഀ
tablet_name('آیپد ایر نیو ',5).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀∀찆縆⼆ ✀찆ㄆ 䘀찆䠆 ㈀　㄀㐀✀Ⰰ㔀⤀⸀ഀഀ
tablet_name('گالکسی نوت 1',6).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀꼀✆䐆꤆㌆찆 䘀䠆⨆ ㈀✀Ⰰ㘀⤀⸀ഀഀ
tablet_name('گالکسی نوت 3',6).
਍琀愀戀氀攀琀开渀愀洀攀⠀✀꼀✆䐆꤆㌆찆 䘀䠆⨆ 㐀✀Ⰰ㘀⤀⸀ഀഀ
tablet_name('گالکسی نوت 5',6).
਍ഀഀ

਍栀攀氀瀀㨀ⴀഀഀ
q	write('شما تبلتی با صفحه نمایش بزرگ میخواهید یا کوچک ؟'),nl,
਍ऀ眀爀椀琀攀⠀✀㔀䄆ⴆ䜆 䘀䔆✆찆㐆 ⠀㈆ㄆ꼆 㴀 戀✀⤀Ⰰ渀氀Ⰰഀഀ
	write('صفحه نمایش کوچک = k'),nl,
਍ऀ爀攀愀搀⠀堀⤀Ⰰഀഀ
	process1(X).
਍瀀爀漀挀攀猀猀㄀⠀欀⤀㨀ⴀഀഀ
	write('شما دوست دارید چقدر هزینه کنید ؟'),nl,
਍ऀ眀爀椀琀攀⠀ ✀⠀✆䐆✆찆 ㌀　　 ⼀䐆✆ㄆ 㴀 栀椀最栀✀⤀Ⰰ渀氀Ⰰഀഀ
	write( 'زیر 300  دلار = low'),nl,
਍ऀ爀攀愀搀⠀堀⤀Ⰰഀഀ
	process2(X).
਍瀀爀漀挀攀猀猀㄀⠀戀⤀㨀ⴀഀഀ
	write('شما دوست دارید چقدر هزینه کنید ؟'),nl,
਍ऀ眀爀椀琀攀⠀✀⠀✆䐆✆찆 㐀　　 ⼀䐆✆ㄆ 㴀 栀椀最栀✀⤀Ⰰ渀氀Ⰰഀഀ
	write('زیر 400  دلار = low'),nl,
਍ऀ爀攀愀搀⠀堀⤀Ⰰഀഀ
	process6(X).
਍ഀഀ
process2(high):-
਍ऀ琀愀戀氀攀琀开渀愀洀攀⠀堀Ⰰ㄀⤀Ⰰഀഀ
        write(tablet_name(X)).
਍ഀഀ
process2(low) :-
਍ऀ眀爀椀琀攀⠀✀㐀䔆✆ ⼀䠆㌆⨆ ⼀✆ㄆ찆⼆ ✀㈆ 蘀䜆 ㌀찆㌆⨆䔆 㤀✆䔆䐆찆 ✀㌆⨆䄆✆⼆䜆 ꤀䘆찆⼆ ἀ✆⤀Ⰰ渀氀Ⰰഀഀ
	write('سیستم عامل آندروید =a '),nl,
਍ऀ眀爀椀琀攀⠀✀㌀찆㌆⨆䔆 㤀✆䔆䐆 ∀찆 ✀䠆 ✀㌆ 㴀  椀✀⤀Ⰰ渀氀Ⰰഀഀ
	write('سیستم عامل اهمیتی ندارد = b'),nl,
਍ऀ爀攀愀搀⠀堀⤀Ⰰഀഀ
	process3(X).
਍ഀഀ
process3(i) :-
਍ऀ琀愀戀氀攀琀开渀愀洀攀⠀堀Ⰰ㄀⤀Ⰰഀഀ
        write(tablet_name(X)),nl.
਍ഀഀ
process3(a) :-
਍ऀ眀爀椀琀攀⠀✀∀찆✆ ⠀ㄆ✆찆 㐀䔆✆ 䔀䜆䔆 ✀㌆⨆ ꤀䜆 ⼀㌆⨆꼆✆䜆 㐀䔆✆ ㌀ㄆ䠆찆㌆ ∀䔆✆㈆䘆 ⼀✆㐆⨆䜆 ⠀✆㐆⼆ ἀ✆⤀Ⰰ渀氀Ⰰഀഀ
	write('بله = y'),nl,
਍ऀ眀爀椀琀攀⠀✀⸀찆ㄆ 㴀 渀 ✀⤀Ⰰ渀氀Ⰰഀഀ
	read(X),
਍ऀ瀀爀漀挀攀猀猀㐀⠀堀⤀⸀ഀഀ
process3(b) :-
਍ऀ眀爀椀琀攀⠀✀∀찆✆ 㐀䔆✆ ⠀䜆 㔀䄆ⴆ䜆 䘀䔆✆찆㐆찆 ⠀✆ ꤀찆䄆찆䘆 ⨀㔆䠆찆ㄆ ⠀✆䐆✆ 䘀찆✆㈆ ⼀✆ㄆ찆⼆ ἀ✆⤀Ⰰ渀氀Ⰰഀഀ
	write('بله = y'),nl,
਍ऀ眀爀椀琀攀⠀✀⸀찆ㄆ 㴀 渀 ✀⤀Ⰰ渀氀Ⰰഀഀ
	read(X),
਍ऀ瀀爀漀挀攀猀猀㔀⠀堀⤀⸀ഀഀ
process4(y) :-
਍ऀ琀愀戀氀攀琀开渀愀洀攀⠀堀Ⰰ㐀⤀Ⰰഀഀ
        write(tablet_name(X)).
਍ഀഀ
process4(n) :-
਍ऀ琀愀戀氀攀琀开渀愀洀攀⠀堀Ⰰ㌀⤀Ⰰഀഀ
        write(tablet_name(X)).
਍ഀഀ
process5(y) :-
਍ऀ瀀爀漀挀攀猀猀㐀⠀礀⤀ Ⰰ℀⸀ഀഀ
process5(n) :-
਍ऀ瀀爀漀挀攀猀猀㐀⠀渀⤀ Ⰰ℀⸀ഀഀ
process6(low) :-
਍ऀ眀爀椀琀攀⠀✀∀찆✆ 㐀䔆✆ ㈀찆✆⼆ ⠀✆㈆찆 䔀찆꤆䘆찆⼆ ἀ✆⤀Ⰰ渀氀Ⰰഀഀ
	write('بله = y'),nl,
਍ऀ眀爀椀琀攀⠀✀⸀찆ㄆ 㴀 渀 ✀⤀Ⰰ渀氀Ⰰഀഀ
	read(X),
਍ऀ瀀爀漀挀攀猀猀㜀⠀堀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㘀⠀栀椀最栀⤀ 㨀ⴀഀഀ
	write('شما دوست دارید از چه سیستم عاملی استفاده کنید ؟'),nl,
਍ऀ眀爀椀琀攀⠀✀㌀찆㌆⨆䔆 㤀✆䔆䐆 ∀䘆⼆ㄆ䠆찆⼆ 㴀愀 ✀⤀Ⰰ渀氀Ⰰഀഀ
	write('سیستم عامل آی او اس =  i'),nl,
਍ऀ眀爀椀琀攀⠀✀㌀찆㌆⨆䔆 㤀✆䔆䐆 ✀䜆䔆찆⨆찆 䘀⼆✆ㄆ⼆ 㴀 戀✀⤀Ⰰ渀氀Ⰰഀഀ
	read(X),
਍ऀ瀀爀漀挀攀猀猀㠀⠀堀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㜀⠀礀⤀ 㨀ⴀഀഀ
	tablet_name(X,7),
਍        眀爀椀琀攀⠀琀愀戀氀攀琀开渀愀洀攀⠀堀⤀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㜀⠀渀⤀ 㨀ⴀഀഀ
	tablet_name(X,8),
਍        眀爀椀琀攀⠀琀愀戀氀攀琀开渀愀洀攀⠀堀⤀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㠀⠀椀⤀ 㨀ⴀഀഀ
	tablet_name(X,5),
਍        眀爀椀琀攀⠀琀愀戀氀攀琀开渀愀洀攀⠀堀⤀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㠀⠀戀⤀ 㨀ⴀഀഀ
	write( 'آیا شما به قلم نیاز دارید ؟'),nl,
਍ऀ眀爀椀琀攀⠀✀⠀䐆䜆 㴀 礀✀⤀Ⰰ渀氀Ⰰഀഀ
	write('خیر = n '),nl,
਍ऀ爀攀愀搀⠀堀⤀Ⰰഀഀ
	process9(X).
਍ഀഀ
process8(a) :-
਍ऀ琀愀戀氀攀琀开渀愀洀攀⠀堀Ⰰ㘀⤀Ⰰഀഀ
        write(tablet_name(X)).
਍ഀഀ

਍瀀爀漀挀攀猀猀㤀⠀礀⤀ 㨀ⴀഀഀ
	tablet_name(X,6),
਍        眀爀椀琀攀⠀琀愀戀氀攀琀开渀愀洀攀⠀堀⤀⤀⸀ഀഀ

਍瀀爀漀挀攀猀猀㤀⠀渀⤀ 㨀ⴀഀഀ
	tablet_name(X,5),
਍        眀爀椀琀攀⠀琀愀戀氀攀琀开渀愀洀攀⠀堀⤀⤀⸀ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍ഀഀ

਍�