Вычислить значение функции в зависимости от введенного аргумента - Pascal ABC

var
x,y,a: real;
begin
write('Введите x: ');
readln(x);
if x>10 then y:=1/x else
if x<-10 then y:=Sin(x) else begin
write('Введите a: ');
readln(a);
y:=a*x*x;
end;
writeln('y = ',y);
end.