Алгоритм который отрицательное число возводит в квадрат , а из положительного числа вычисляет квадратный корень.

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A<0 then Write(A*A)
else Write(sqrt(A))
End.