Составить схему алгоритма и программу в Turbo Pascal

[Сабишка]

Даны однонаправленные списки K1 и K2. Сформировать список K=K1∩K2
∩ - пересечение

[Sibedir]

Приведите хотябы описательную часть кода:
1. типы
2. код формирования списков

А то, если я правильно понял условие задачи, задача глупая какая-то.
Если у списков нет ни одного общего элемента, то решения нет. Если есть хотябы один общий элемент, то список-результат - это самый длинный список из двух.
Если К1 длиннее К2 то
Кmax:=K1
Кmin:=K2
иначе
Кmax:=K2
Кmin:=K1
A := Кmin.First
Если Кmin.First есть в Кmax то
К := Кmax
иначе
К := nil
Это топорное решение, но это не важно, так как не думаю, что именно это имелось в виду.

Пояснение:
Если бы существовал хотя бы один общий элемент у этих списков, то все следующие элементы обязаны быть общими вплоть до самого конца, и последний элемент у них один и тот же. Проще говоря, один из списков - это уже "хвост" другого.

Если же именно это и имелось в виду, то ... А-а-а, ну я уже ответил.

[Smitt&Wesson]

Sibedir, не парьтесь. Всё уже решено в плане, "я заплатил ректору".
А зачем платить больше?

[Sibedir]

______________