Дано целое число 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.