Скласти блок-схему алгоритму та програму на Паскалі обчислення значень функції
Program variant bla bla bla;
Uses Crt
Var
x, y:real;
Begin
Clrscr;
write (‘введите х=’);
read(x);
fx<>0 then
Begen
fx<0 then y:=1-sin(2*x);
fx>0 then y:=1+ln(1+x);
writeln (‘y=’, y:3:3);
and else writeln (‘решения нет’);
repeat until keypressea;
