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

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

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

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

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