Составить блок-схему алгоритма и программу на Паскале для вычисления функций z.

Program funct;

var e, x, y, z, expres : real;

function entN(): real;

   begin

       write (' e = '); readln (e);

       write (' x = '); readln (x);

    write (' y = '); readln (y);

   end;

begin

   entN();

   expres := ((3 * y) ** 0.5) + x;

   if expres > 14 then

       z := e ** (3 * x * y);

   if expres < 14 then

       z := x + (3 * y)

   else

       z := x * 0.5;

   writeln(' Z = ', z);

end.

Блок-схему легко составить глядя на код программы)

Удачи)