Объяснение:
var x,y:real;
begin
write('x= ');read(x);
if x>0 then
y:=sqrt(x)
else
y:=sqr(x);
write('Значение y= ',y);
end.
