{$n-}                           {Coprozessor aus}
Function Wurzfkt(Radikand:LongInt):Integer;external;
{$l Wurzel}
{Hier muá der Pfad des Assembler-Moduls Wurzel.obj eingetragen werden !}

var i:word;                     {Schleifenz„hler}
    n:Integer;                  {Ergebnis der Integer-Rechnung}
    r:Real;                     {Ergebnis der Real-Rechnung}

Procedure Wurzel_neu;           {berechnet Wurzel nach Integer-N„herung}
Begin
  For i:=1 to 10000 do          {10000 mal durchlaufen,}
    n:=Wurzfkt(87654321);       {um Geschwindigkeitsvergleich zu erhalten}
End;

Procedure Wurzel_real;          {berechnet Wurzel durch Pascal-Funktion}
Begin
  For i:=1 to 10000 do          {10000 mal durchlaufen,}
    r:=Sqrt(87654321);          {um Geschwindigkeitsvergleich zu erhalten}
End;

Begin
  writeLn;
  WriteLn('Wurzelberechnung durch Pascal - Funktion beginnt');
  Wurzel_Real;
  WriteLn('Ergebnis: ',r:0:0);
  WriteLn('Wurzelberechnung durch Integer - Funktion beginnt');
  Wurzel_neu;
  WriteLn('Ergebnis: ',n);
End.