טוב זה הולך ככה:

*מקטע-משותף-מקסימלי לשתי רשימות נתונות הוא תת-רשימה הרצופה המקסימלית,
המשותפת לשניהן. לדוגמא עבור הרשימות L1 ן L2 :
L1=1,5,6,3,4,8,9,5,4,3,6,7
L2= 5,5,5,8,9,5,6,3,6
המקטע המשותף המקסימלי הוא הרשימה: L3= 4,8,9,5

נתונה הפונקציה:
Function List_Compare(L1,L2:list_type;P1,P2:pos_type;N:integer):boolean
הפונקציה מקבלת שתי רשימות מאותחלות L1 ו L2 ושני מצביעים P1 וP2
המצביעים על מקומות ב-L1 וL2 בהתאמה. הפונקציה מחזירה TRUE אם N האיברים החל מ-P1 ברשימה L1 זהים ל-N האיברים החל מ-P2 ברשימה L2.וFALSE אחרת.
אם מספר האיברים אחרי P1 או P2 קטן מ-N צחזיר הפונקציה False

כתוב פרוצדורה בפסקל שתקבל שתי רשימות L1 ו L2 ותחזיר את
המקטע-המשותף-המקסימלי לשתיהן. השתמש בפונקציה List_Compare(אין צורך לממש את הפונקציה)

נמאסו עלי האנשים שחושבים שככה הם יעברו את כיתה י"ב.