С клавиатуры вводится число 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.