Пожалуйста, помогите, мне надо из блок схемы составить программу
Дам 40 баллов

Ответ:

Объяснение:

var x,y:real;

begin

 write('x= ');read(x);

 if x>0 then

   y:=sqrt(x)

 else

   y:=sqr(x);

 write('Значение y= ',y);

end.