написать программку в ПАСКАЛЕ: опишите множество Pr(1..20)  и расположите в него

Var
  Pr: set of 1..20;
  x: integer;

begin
  Pr := [1, 2, 3, 5, 7, 11, 13, 17, 19];
  writeln('Вводите целые числа от 1 до 20, выход по 99');
  repeat
    write('Число ');
    readln(x);
    if x lt; 21 then
      if x in Pr then writeln('обычное')
      else writeln('не простое')
  until x = 99
end.

Тестовое решение:

Вводите целые числа от 1 до 20, выход по 99
Число 18
не простое
Число 3
простое
Число 15
не обычное
Число 23
Число 19
обычное
Число 99