Question

С клавиатуры вводится число n под корнем. Если это число больше нуля, то найти его квадратные корни. Если число отрицательное, то возвести его в квадрат

Answer 1

Var n:real;
begin
  writeln('n = ');
  readln(n);
  if n>0 then writeln('sqrt(n)=',sqrt(n));
  if n<0 then writeln('n^2=',sqr(n));
  readln;
end.