Напишите алгоритм нахождения значения функции y= f(x) (паскаль)

//Пример программы
//Пусть f(x)=10x-x^2
//PascalABC.Net 3.2
function f(x:real):=10*x-sqr(x);
begin
write ('f(x)=', f(readreal('Введите x: ')));
end.