program Pi_Berechnung; {Vieleckmethode nach Archimedes}
uses dos,crt;
var m,n,s,u,p:real;
    ch:char;
begin
 clrscr;writeln;writeln;
writeln('  Druecke bis m=20 die Leertaste!');
 s:=1;m:=1;n:=6;p:=3;
 repeat
  write('  m =');
  writeln(m:3:0,' ',n:8:0,'   ',p:3:10);
  m:=m+1;n:=2*n;
  s:=sqrt(2-sqrt(4-s*s));  {*}
  u:=n*s;p:=u/2;
  repeat ch:=readkey until ch=' ';
 until m=21;
end.
{Wie man sieht, werden die mit {*} erhaltenen Naeherungswerte
 erst besser und dann wieder schlechter. Ersetze die Zeile durch
 s:=s/sqrt(2+sqrt(4-s*s)) und vergleiche das Endergebnis mit dem
 eingebauten Computer-Pi!}