1. вычислить значение функции f(x)= cos(x), если x< 0 2^x, если 0

1)
var f: real;
    x, i: integer;
begin
     readln(x);
     if (x < 0) then f := cos(x);
     if ((x > 0) and (x <= 2)) then f := exp(ln(2) * x);
     writeln('F(', x, ') = ', f);
end.

2)
var x, y, z, m: real;
begin
     readln(x, y, z);
     m := x + y;
     if (x < m) then m := x;
     if (m > z) then m := z;
     if (m > x * y * z) then m := x * y * z;
     writeln(m);
end.

Вот, проверил =)