Задание 1. Вычислить значение функции F (x)=cos (x), если x

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