Задача на паскаль Срочно

program PiecewiseFunction;

uses
Math;

var
z, alpha, t, result: Real;

begin
z := 6.12;
alpha := 2.132;
t := 0.5 * 1E-5;

if alpha < Cos(z) then
result := Sin(3 * z) + Sqrt(alpha)
else if alpha = Cos(z) then
result := Ln(alpha) * Tan(z)
else
result := Exp(alpha * t) + Cos(Sqrt(z * alpha));

WriteLn('The value of λ_5 is: ', result:0:10);
end.


Доволен?

 program test;

  var a, z, t, y: real;

  function comp(real x, y): integer;
  begin
    comp := ord(x > y) - ord(x < y)
  end;

begin
  z := 6.12;
  a := 2.132;
  t := 0.005; {если степень -2, если степень +2, то t := 50;}
  case comp(a, cos(z)) of
    -1: y := power(sin(3 * z), 3) + sqrt(a);
     0: y := sqr(ln(a) / ln(10)) * sin(z) / cos(z);
     1: y := exp(a * t) + cos(sqrt(z))
  end;
  write(y)
end. 

Но т.к. в условии задачи a > 1, то заведомо сработает только третий вариант и вся программа сокращается до:

 program test;
begin
  write(exp(2.132 * 0.005) + cos(sqrt(6.12)))
end.