var x,y:real;
begin
read (x);
if x<=0 then y:=x*x
else y:=sqrt(x);
write (y)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x,y:real;
begin
read (x);
if x<=0 then y:=x*x
else y:=sqrt(x);
write (y)
end.