const
 size = 8190;
 sizepl = 8191;

type
    flagarray = array [0..sizepl] of boolean;
var
    i,prime,k,count,iter : integer;
    flags : flagarray;

begin
    writeln('10 iterations');
    readln;
    for iter:=1 to 10 do
    begin
        count:=0;
        for i:= 0 to size do flags[i]:=true;
        for i:=0 to size do
        begin
            if flags[i] then
            begin
                prime:= i+i+3;
                k:=i+prime;
                    while k<= size do
                    begin
                        flags[k] := false;
                        k := k + prime;
                    end;
                    count := count+1;
            end;
        end;
    end;

writeln;
writeln(count,' primes');
end.
  q = 95;
  xp = 180;
  yp = 50;
  zp = 64;

VAR
  yf,xy,zf,xf,zt,xt,xr,yr,yy,xpzp : REAL;
  xp2,zi,zzp,zzq,xl,xi,yi