Pascal/Delphi Criar um programa de raiz quadrada

[AlonePLayerBr]

Ola galera estou precisando de um programa no pascal que resolva uma raiz quadrada porém não pode conter a função sqr nem sqrt se der numero inteiro ele mostra o resultado se der numero quebrado o programa fecha

[Kamuri]

Você pode usar o método babilônico para aproximar a raiz quadrada de n. Se der um número quebrado, o programa dá um runtime error e fecha. Eu não tenho tanta familiaridade com Pascal, mas tentei fazer aqui:

 

program my_sqrt;

function squareRoot(n: integer): real;
    var
    x: real;
    y: real = 1;
    const
    precisao: real = 0.000001;
    
    begin
        x := n;
        while (x - y) > precisao do
            begin
                x := (x + y) / 2;
                y := n / x;
            end;
        squareRoot := x;
    end;

var
to_calc : integer = 0;

begin
  write('Digite um número para calcular a raiz quadrada: ');
  read(to_calc);
  write('A raiz quadrada de ', to_calc, ' é: ');
  write(squareRoot(to_calc));
end.