Программы на лабораторные работы / lab2_1 / ST_TPROF / PROST / PROST0_P

program prost;
{ Џа®Ја ¬¬  ЈҐ­Ґа жЁЁ Їа®бвле зЁбҐ« ЇаЁ Ї®¬®йЁ  «Ј®аЁв¬  ќўЄ«Ё¤  }
const maxprime=1000;
type
intarr=array[0..maxprime] of integer;
var
primes: intarr;
j,lastprime, curprime: integer;
begin
primes[0] := 2;
primes[1] := 3;
lastprime := 1;
curprime := 3;

writeln('prime0 = ', primes[0]);
writeln('prime1 = ', primes[1]);
while(curprime < MAXPRIME) do
begin
for j := 0 to lastprime do
if((curprime mod primes[j]) = 0)
then begin
curprime := curprime +2;
break;
end;
if((j+1) <= lastprime) then continue;
lastprime:= lastprime+1;
writeln('prime ', lastprime,'=', curprime);
primes[lastprime] := curprime;
curprime := curprime +2;
end
end.