Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите...

Question

Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.

Answer 1

Var a:real;
begin
writeln('введите число');readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.