Опишите множества Pr (1..20) и поместите в него все простые числа в диапазоне 1..20. В цикле организуйте ввод чисел 1..20 и определите простые они или нет. Выход из цикла введенное значение 99 — Pascal(Паскаль)

uses crt;
type mnoz=set of 1..20;
var pr:mnoz;
    a:byte;
begin
clrscr;
pr:=[2,3,4,5,7,11,13,17,19];
writeln('Введите числа от 1 до 20, окончание ввода 99');
repeat
write('a=');
readln(a);
if a in pr then writeln('Это простое число')
else if a=99 then exit
else writeln('Это не  простое число');
until a=99;
readln
end.