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

public int gcd(int x, int y) {         if(y == 0) return x;         if(y ==  x) Concole.Write(x + " ";)  // выводим простое число         return gcd(y, x % y); } // вызов gcd(2,n);