Задание 1.вычислить значение функции F(x)= cos(x), если x меньше 0                                                      2^x, если 0 меньше x меньше =2Задание 2. даны числа x,y,z. найти min(x+y,x,z,xyz)нужны программы в паскале ...

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. Вот, проверил =)