Вычислить Значения Функции Паскаль.Срочно нужен ответ.

//прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
if a<=0 then f:=sqr(a) else f:=a/10;
end;

begin
write ('Введите x: ');
readln (x);
write ('f(', x, ') = ', f(x) );
end.