по представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значения х

var x,y:real; begin write('x='); readln(x); if x<=-1 then y:=1 else if(x>-1)and(x<=2) then y:=x else y:=1/(x*x); write('y=',y:0:2); readln end.