Вычислить значение функции в зависимости от введенного аргумента - 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.

Объяснение кода листинга программы

Создается переменная x типа real и присваивается ей значение, полученное от пользователя.
Создается переменная y типа real и присваивается ей значение, равное 1/x, если x больше 10, иначе присваивается значение, полученное от пользователя.
Создается переменная a типа real и присваивается ей значение, полученное от пользователя.
Если x меньше или равно 10, то y присваивается значение, полученное от пользователя.
Если x больше 10, то y присваивается значение, полученное от пользователя.
Выводится значение переменной y.