var

 i:byte;

 n:array [1..10] of real;

begin

 for i:=1 to 10 do

   readln(n[i]);

 for i:=1 to 10 do

   begin

     write(n[i],'  ');

     if n[i]>0 then

       n[i]:=sqrt(n[i])

         else

           n[i]:=sqr(n[i]);

     writeln(n[i]);

   end;

end.

Если моё решение помогло вам, отметьте его как "лучшее". Спасибо!