Вычислить значение функции - Free Pascal (817)

Набрать текст программы, позволяющей вычислить значение функции

Листинг программы

var
  x: real;
begin
  readln(x);
  if (x>=-2) and (x<=5)
    then writeln(x-2*x+x*x)
    else writeln(sin(x*x));
end.

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

Объявлена переменная x типа real.
Введена команда readln(x), которая считывает значение переменной x с помощью встроенной функции readln.
В условии if (x>=-2) and (x<=5) проверяется, находится ли значение переменной x в заданном диапазоне.
Если условие истинно, то выполняется блок кода, который начинается со слова then.
В блоке кода вычисляется значение выражения x-2x+xx и выводится на экран с помощью функции writeln.
Если условие ложно, то выполняется блок кода, который начинается со слова else.
В блоке кода вычисляется значение выражения sin(x*x) и выводится на экран с помощью функции writeln.
В конце программы стоит ключевое слово end.