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

Question

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

---

Answer 1

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

Answer 2

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

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

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