Delphi - lab1

program lab1;
Uses Math;

var a, b, f: real;
begin
  writeln('Input a: ');
  readln(a);
  writeln('input b: ');
  readln(b);
  f := (8.15*power(b, 1/3)*Ln(a))/(24.38*cos(b)*(exp(a)+power(a, a)));
  writeln('f = ', f:10:6);
  readln;
end.