Вводится 15 двузначных чисел. Напечатать каждое число введенное впервые - Turbo Pascal

Формулировка задачи:

Не знаю как написать программу, на тип множество: Вводится 15 двузначных чисел. Напечатать каждое число введенное впервые

Решение задачи: «Вводится 15 двузначных чисел. Напечатать каждое число введенное впервые»

Листинг программы

uses crt;
var i,x:byte;
    m:set of byte;
begin
clrscr;
writeln('Введите 15 двузначных положительных чисел');
m:=[];
for i:=1 to 15 do
 begin
  repeat
  write('x',i,'=');
  readln(x);
  until x in [10..99];
  m:=m+[x];
 end;
writeln('Числа введенные впервые');
for i:=10 to 99 do
if i in m then write(i:3);
readln
end.

Объяснение кода листинга программы

Этот код на Turbo Pascal запрашивает у пользователя 15 двузначных чисел, затем добавляет эти числа в массив m. Затем он проверяет, какие числа из этого массива были введены впервые (то есть, они не были ранее введены), и выводит эти числа на экран. Код начинается с использования crt, что позволяет использовать стандартную библиотеку ввода-вывода. Затем определяются переменные i, x и m типа byte. Переменная m объявляется как множество байтов (set of byte), что позволяет хранить в ней только уникальные значения. Далее идет цикл for, который повторяется 15 раз. Внутри этого цикла пользователю предлагается ввести двузначное число, и это число добавляется в массив m. Затем используется оператор repeat, чтобы повторить запрос числа до тех пор, пока введенное число не будет в пределах от 10 до 99. Это гарантирует, что все введенные числа являются двузначными положительными числами. После завершения цикла for выводится сообщение Числа введенные впервые, и затем используется еще один цикл for, чтобы проверить, какие числа из массива m были введены впервые. Если число введено впервые, оно выводится на экран. Наконец, код завершается вызовом readln, чтобы пользователь мог выйти из программы.