1. Ниже представлена таблица, созданная в табличном процессоре:

пщояк 17 27 16 33 17

нщёп 15 27 7 17

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

я думаю так:

нечетный ряд чисел ( то есть первая цифра, третья, пятая, седьмая) увеличивается на 5, а четный (вторая, четвертая, шестая) на 1

1,3,6,4,11,5,16,6

var n,i: integer;

begin

  read(n);

  for i: = 2 to (n-1) do

      if n mod i ==0 then begin

          writeln('no');

          break;

      end;

  writeln('yes');

end.