Помогите составить программку вычисления функций под номером 4.

P.S программка написана для Pascal

program fun;

function f( a: real): real;

var x:real;  

begin

 if (alt;1.2) or (agt;2.5) then

   x:=a*a*a-0.5;

 if (agt;=1.2) and (alt;=2.5) then

   x:=sin(a);

 f:=x;  

end;

var

 y: real;

begin

 writeln('Введите y');

 read(y);

 writeln('f=',f(y):0:2);    

end.

uses Math;

var

 y, f: real

begin

   Write ('Введите Y: ');

   Readln (y);

   if (y gt;= 1.2) and (y lt;= 2.5) then

     f := Sin (y)

   else

     f := Power (y, 3) - 0.5;

   Writeln ('y = ' + FloatToStr (f));

end;