DataMuseum.dk

begin
_____
integer k,p,d,i,x,n,m;
_______
L:outchar(66);
outtext(|<
        <
Tabel over primtal mellem 1000og 10000
lavet i samarbejde mellem
Gier   og
Jesper Andreas Taagholt og Hans Peter Thøgersen
|);
>
for k:=1 step 1 until48 do
___      ____   _____   __
_
      begin
      _____
      outtext(|<_|);
              <  >
      end;
      ___
forp:=100step2until999do
___      ____ _____   __
      begin integer array a[1:19],b[1:19];
      _____ _______ _____
      d:=10⨯p;
      outcr;
      output(|dddd|,d);
             <    >
      outtext(|< |
              <
     | |);
       >
      fori:=1,3,7,9,11,13,17,19 do
      ___                       __
            begin
            _____
            a[i]:=d+i;
            b[i]:=a[i];
            x:=sqrt(a[i]);
            for n:=3 step 2until x do
            ___      ____  _____   __
                  begin
                  _____
                  m:= a[i]/n;
                  if abs (a[i]/n-m)<10-4 then b[i]:=0;
                  __                    ____
                  end;
                  ___
            end;
            ___
      output(|dddd|,b[1],b[3],b[7],b[9],b[11],b[13],b[17],b[19]);
             <    >
      end;
      ___
if kbon then goto L;
__      ____ ____
end;
___
[punch_on] [punch_on] [punch_on] [punch_on]