Дано целое число n>2. Получите все простые числа из диапазона [2,n].

Var a, b, k, j: integer;begin     readln(j);     a := 1;     b := 1;     while (j > a) do     begin          k := b;          b := b + a;          a := k;     end;     writeln(a);end.

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