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);
<span>end.
2)
</span>var x, y, z, m: real;
<span>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);
<span>end.
</span>
Вот, проверил =)</span>
Нужно дрова поставить(драйвера)в настройках подивись чи є,якщо нема то встанови
Дерево - размер, шуршание листьев.
Сорока - звуки карканья окраска перьев.
Тюльпан - Арамат, цвет.
Солнце - свет.
Туча с грозой - вспышка,