Написать программу в ПАСКАЛЕ: опишите множество Pr(1..20) и поместите в него все простые числа в диапозоне 1..20. В цикле организуйте ввод чисел в диапозоне 1..20 и определите, простые они или нет . Выход из цикла - введеное значение , равное 99.

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 < 21 then
      if x in Pr then writeln(простое)
      else writeln(не простое)
  until x = 99
end.

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.