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

Question

Даны два числа возвести в квадрат отрицательные извлечь корень квадратный из положительных.

Answer 1

Var x,y:real;
begin
read(x,y);
if x<0 then x:=x*x else x:=sqrt(x);<br>if y<0 then y:=y*y else y:=sqrt(y);<br>write(x,' ',y);
end.