Помогите с программой и блок схемой

[К145]

Компьютер генерирует пять чисел в диапазоне от 1 до 15 включительно. Человек пытается их угадать. Программа должна выводить угаданные и неугаданные числа из тех, что сгенерировала программа, а также ошибочные числа пользователя.

Пожалуйста, подробно

[rrrFer]

Мое решение на swi prolog:

goal:-
  write('userlist: '), read(UserList),
  length(ComputerList, 5), maplist(random(1, 15), ComputerList),

  write(('userlist: ', UserList)), nl,
  write(('computerlist: ', ComputerList)), nl,
  
  partition(member2(UserList), ComputerList, RightAnswers, WrongAnswers),
  
  write(('RightAnswers: ', RightAnswers)), nl,
  write(('WrongAnswers: ', WrongAnswers)), nl.
  
member2(X, L):- member(L, X).

Пример запуска (2 раза проверил) привел на рисунке.

[К145]

А сможете сделать через Паскаль?