сделала, но надо доработать..только не знаю как

[Дашуля_18]

program zadanie2;
Uses crt;
function stepen(x1,y1:real):real;
begin
stepen:=exp(y1*ln(x1));
end;
 
var x, y: real;
    z: real;
 
begin
  x:=-0.1625;
  y:=1.6141;
  z:=arctan(stepen(x*x+y*y*y+sqr(x-y),1/3)/Ln(Abs(y+x*y+sqr(x)*sqr(x))));
  
  writeln('Ответ: ', z);
end.

вот вроде сделала, но не могу понять как его выполнить с помощью подрограмм и с записью файл?
помогите пожалуйста

[Stilet]

Вот так:

program zadanie2;
Uses crt;

var x, y: real;
    z: real;
 
function stepen(x1,y1:real):real;
begin
 stepen:=exp(y1*ln(x1));
end;
 
function result:Real;begin Result:=arctan(stepen(x*x+y*y*y+sqr(x-y),1/3)/Ln(Abs(y+x*y+sqr(x)*sqr(x)))); end;

procedure tofile;var f:text;
begin
 assign(f,'file.txt');rewrite(f);
 writeln('x',#9,x:5:2);
 writeln('y',#9,y:5:2);
 writeln('z',#9,z:5:2);
 close(f);
end;


begin
  x:=-0.1625;
  y:=1.6141;
  z:=result;
  tofile;
  writeln('Ответ: ', z);
end.

[Дашуля_18]

спасибо большое!