Вычислить значение выражения - Turbo Pascal (33539)

Как записать данный пример в паскале?

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

var x:real;
begin
write('X:');
readln(x);
writeln(exp(2*x-x*x));
readln;
end.

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

Создаётся переменная x типа real.
Выводится сообщение X:, чтобы пользователь мог ввести значение переменной x.
Пользователю предлагается ввести значение переменной x.
Значение переменной x сохраняется в переменную x.
Вычисляется значение выражения exp(2*x-x*x). Здесь exp - это функция экспоненты, а 2*x-x*x - это выражение, которое вычисляется.
Выводится результат вычисления.
Программа завершается, ожидая ввода пользователя.