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

program a1; var x,f: real; beginreadln (x); if x<=0 then f:=x*x else f:=x/10; writeln ('f=',f); end.

//прога на 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.