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

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.