прописать решение в Паскале

1)var x,r, l, res : integer;

begin

read(x,r);

l := 0,9;

res:= (x* l) * r;

writeln(res);

end.

2)var a,b,h,S : integer;

begin

read(a,b,h);

S:= (h(a+b))/2;

writeln(S);

end.

3) Формула не видна.

4) var a,b, res : integer;

begin

read(b);

a := 2;

res:= exp(a*in(b));

writeln(res);

end.

5) var n, a, b, c: integer;

begin

readln(n);

a := n mod 10;

n := n div 10;

b := n mod 10;

n := n div 10;

c := n;

n := 100 * a + 10 * b + c;

writeln(n)

end.