here is a simple procedure to get a square root, it only works to a certain extent, i will fix that later... 
SCAR Code:
program squareroot;
const
numbertosquare = 3;
function squarerootnumber(number : integer) : extended;
var
guess : integer;
step1, guess2, step2, guess3, step3, guess4 : extended;
begin
guess:= 1;
step1:= number/guess;
guess2:= step1 + guess/2;
step2:= number/guess2;
guess3:= step2 + number/2;
step3:= number/guess3;
guess4:= step3 + guess3/2;
result:= guess4;
writeln(' ');
writeln('The square root is ' + Floattostr(result));
writeln('Remember this is an estimation');
writeln('the generated number will differ from actual answer');
writeln('In many cases it will be far off... ');
writeln('I might improve the method later! :D');
writeln(' ');
writeln(' ');
result:= 0;
end;
begin
squarerootnumber(numbertosquare);
end.