Question

Пожалуйста, помогите с информатикой, срочно!

Напишите программу для Pascal, которая считывает одно натуральное число и выводит на первой строке все делители этого числа в порядке возрастания, разделённые пробелами, а на второй — «ПРОСТОЕ» или «НЕТ» в зависимости от того, простым было введённое число или нет.

Формат ввода
Одно натуральное число.

Формат вывода
В первой строке — все делители введенного числа, записанные через пробел (перед первым и после последнего делителя пробелов нет).
Во второй — сообщение «ПРОСТОЕ» или «НЕТ».

Пример:
Ввод:
12
Вывод:
1 2 3 4 6 12
НЕТ​

Answer 1

Program n_1;

var x, i, k:int64;

begin

   readln(x);

   k:=0;

   for i:=1 to x do

       if x mod i = 0 then begin

           write(i, ' ');

           k:=k+1;

       end;

   writeln();

   if k>2 then writeln('НЕТ')

   else writeln('ПРОСТОЕ');

end.