введите с клавиатуры число n и запишите в массив первые N простых чисел

var i, k, n, count, primes: word;beginreadln(n);k := 1;primes := 0;while primes < n do begincount := 0;for i := 1 to k do beginif k mod i = 0 then inc(count)end;if count = 2 then beginwrite(k, ' ');inc(primes)end;inc(k)end;end.