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

var x: integer; y: real;

begin

readln(x);

If x<=-10 then  

y:=x*x+25-x

else If (-10<x) and (x<=10) then

y:=3+x

else y:=1/x;

writeln(y);

end.