Решить выражение на ABC Pascal

[Paulesius]

Дорого времени суток всем читающим данное сообщение. Помогите написать программу решения данных выражений(вариант 4) на ABC Pascal во вложенном файле.Заранее огромное спасибо за помощь.

[Paulesius]

Люди программисты ну помогите пожалста!!!! В математике и программировании полный ноль,поэтому без вашей помощи не справлюсь!!!!

[FPaul]

program v4a;

const
  L = 100.0;
  m = 1.8;
  g = 9.8;
var
  t: real;
begin
  t := sqrt((2 * L * (4 + m)) / (3 * g * (2 - m)));
  writeln(t: 8: 4);
end.

program v4b;

const
  t = ln(sin(Pi / 4));

  function power(a, n: real): real;
  begin
    power := exp(ln(a) * n);
  end;

var
  y: real;
begin
  y := sqrt(4 + (1 / t)) + power((1 - (1 / t)), 1 / 7) + power(2, t);
  writeln(y: 8: 4);
end.