Помогите написать программки в паскале, без воды.

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!

1

function f(a,x:real):=(sin(a*x)+x*x*x)/(exp(x)+абс(tan(x)));

begin
  var a,x:real;
  Write('Введите a,x: '); Read(a,x);
  Writeln('y=',f(a,x))
end.

Пример
Введите a,x: -3.5 1.13
y=0.415984691762092

2

function f(x:real):=sin(x)*cos(x);

function G(x:real):=cos(x)-sin(x);

begin
  var a:=ReadReal('a=');
  var b:=ReadReal('b=');
  Writeln(f(a)*g(a)*f(a+b)*sqr(g(a-b)))
end.

Пример
a= -4.2
b= 1
-0.00583852364109992

3

function m(a,b,c:real):=sqrt(2*(b*b+c*c)-a*a)/2;

begin
  var a,b,c:real;
  Writeln('Введите a b c: '); Read(a,b,c);
  Writeln('ma=',m(a,b,c));
  Writeln('mb=',m(b,a,c));
  Writeln('mc=',m(c,a,b));
end.

Пример
Введите a b c:
4.15 6.2 7.18
ma=6.37891644403656
mb=4.97769524981191
mc=3.86563707556724