Написать алгоритм решения на языке Pascal
чел это по школьной программе?
var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) <strong>and (x < pi) then f:= 10
else if (pi <= x) <strong>then f:= cos(6 * x);
end;
readln(x);
writeln(f(x));
end.