sau mai merge sa iei o variabila de tip boolean si....sa iti dau un exemplu
avem nr 8 , n=8
g(variabila boolean)=true {plecam de la premiza asta, ca 8 e nr pri}
impartim pe 8 la 2->>8/2=4
apoi de la 4 in jos impartim pe 8 la toate numerle (mai mici ca 8 sau mai mici sau egale cu 4):
8 MOD 1<>0->>g:=false;

LE: ai dreptate, mie mi s-a explicat cu nr mai mari de n/2...probabil ca nu era atenta profa, insa nici tu nu prea ai dreptate ca asa daca ei orice nr 10 de ex si il imparti la 1 iti sa din start ca nu-i prim , sau 2....

Buna dimineata  :oops:si mersi pentru solutii! poate ca nu chiar sa scriu o carte, dar in orice caz o sa am la ce ma gandi cand merg pe strada....

In primul rand sper ca nu ai scris exact asa in sursa, pentru ca nici macar n-o sa-ti compileze. Incearca asa:
Cod:
program vect_sir;
var v:array[1..100]of integer;
n,i,j,k,x:integer;
Begin
write('n=');readln(n);
write('k='); readln(x);
k := 0;
for i:=1 to n do
     for j:=1 to i do begin
          v[k] := i;
          k := k+1;
     end;
write(v

• );

readln;
End.
Observa in cod ca daca as citi in variabila k, as pierde-o mai incolo, asa ca citesc in altceva(x). Ai nevoie si de n citit pentru implementarea asta. Exit code 201 cred ca iti da pentru ca ai declarat vectorii doar de 100. Pune o valoare mai mare, gen 100000 acolo (in borland se poate sa nu mearga chiar asa). Gandeste-te ca n-ul trebuie sa indeplineasca conditia n*(n+1)/2 <= 100000 cand introduci datele, altfel abordarea asta nu e posibila (repet, in borland).

Eu am freePascal si vad ca merge...Insa cum pot sa fac sa-mi afiseze si sirul? 

imi raspunde cu exit code=201 in ambele variante

adica asa?

Cod:

program vect_sir;
var v:array[1..100]of integer;
n,i,j,k:integer;
Begin
write('n=');readln(n);
var a: array[1..1000] of integer;
{...}
k := 0;
for i:=1 to n do
     for j:=1 to i do begin
          v[k] := i;
          k := k+1;
     end;
write('k=',k);
readln;
End.

   ?

multumesc pentru sugestie, insa nu am inteles prea bine ce vrei sa spui...mai detaliat se poate? 

Buna! Sunt noua pe aici...Invat Pascal de ceva timp, insa am dat de o problema care imi cam da batai de cap: Se da sirul 1,2,2,3,3,3,4,4,4,4,5.... Se da un nr k , sa se afiseze elementul de pe pozitia k. A doua parte cred ca stiu sa o fac, insa cum initializez eu sirul acela cu 1,2,2,3,3,3,4,4,4,4,5 si tot asa? Dati-mi macar un indiciu...