1 {*******************************************************} 2 {FDL Declarations} 3 {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039} 4 {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.} 5 {*******************************************************} 6 7 8 {DATE : 29-NOV-2010 14:30:17.95} 9 10 {function Sqrt.Isqrt} 11 12 13title function isqrt; 14 15 function round__(real) : integer; 16 const natural__base__first : integer = pending; 17 const natural__base__last : integer = pending; 18 const integer__base__first : integer = pending; 19 const integer__base__last : integer = pending; 20 const natural__first : integer = pending; 21 const natural__last : integer = pending; 22 const natural__size : integer = pending; 23 const integer__first : integer = pending; 24 const integer__last : integer = pending; 25 const integer__size : integer = pending; 26 var n : integer; 27 var r : integer; 28 29end; 30