Proszę o pomoc

[Bananowiec]

Witam, programowanie w Pascalu (i w ogóle) jest dla mnie czymś zupełnie nowym. W każdym razie mam do napisania program na zajęcia, który ma sprawdzać czy dane liczby są liczbami pierwszymi w taki sposób, że pierwsza liczba na wejściu jest liczbą liczb, które będziemy sprawdzać. Ma to wyglądać tak:

 

Wejście:

4

5

6

7

8

 

Wyjście:

PIERWSZA

ZLOZONA

PIERWSZA

ZLOZONA

I teraz tak

 

I teraz tak, doszedłem do czegoś takiego i mój program niestety wypisuje tylko czy ostatnia liczba jest pierwsza czy złożona, czy mógłbym prosić o jakąś wskazówkę czego brakuje

 

Kod:.

 

program lp;

 

{$APPTYPE CONSOLE}

 

var

j: integer;

n: integer;

t: integer;

i: integer;

 

begin

ReadLn(t);

for i:=1 to t do

ReadLn(n);

for j:= 2 to (n-1) do

if (n mod j)= 0 then

break;

if (j<n) and (n mod j = 0) then

WriteLn('ZLOZONA')

else

WriteLn('PIERWSZA');

 

readln;

end.

 

Edit: właśnie się zorienotowałem, że temat mojego posta mógłby być z grubsza opisywać mój problem, sorry

[babubabu]

program pierwsza;

var

Tablica : array[1..10000] of boolean;

i, j : LongInt;

Liczba : LongInt;

begin Tablica[1] := false; for i := 2 to 10000 do Tablica := true; for i := 2 to 10000 do if Tablica then for j := 2 to (10000 div i) do Tablica[i*j] := false; Readln(j); for i := 0 to j - 1 do begin Readln(Liczba); if Tablica[Liczba] then Writeln('PIERWSZA') else Writeln('ZLOZONA'); end;end.

 

Masz gotowca.