Вставить в эту задачу процедуру

Program guf;
Uses Crt;
var a,x,y,z:extended;
begin
ClrScr;
Repeat
Write('Enter X:');
ReadLn(x);
Write('Enter Y:');
ReadLn(y);
Write('Enter Z:');
ReadLn(z);
if (x=0) or (y=0) or (z=0) then WriteLn('Error! Pleas repeat');
Until (x<>0) and (y<>0) and (z<>0);
a:=( exp( ln( abs( ln( 1+EXP(x) ) ) )*5 )+
sqrt( abs(x+y+z) )+exp( ln( abs(x-y-z)*3 ) ) )/1.31;
WriteLn('A=',a:4:2);
ReadKey;
End.

Program guf;
Uses Crt;
procedure AA(x,y,z:real; var a:extended);
begin
a:=( exp( ln( abs( ln( 1+EXP(x) ) ) )*5 )+
sqrt( abs(x+y+z) )+exp( ln( abs(x-y-z)*3 ) ) )/1.31;
WriteLn('A=',a:4:2);
end;
var a,x,y,z:extended;
begin
ClrScr;
Repeat
Write('Enter X:');
ReadLn(x);
Write('Enter Y:');
ReadLn(y);
Write('Enter Z:');
ReadLn(z);
if (x=0) or (y=0) or (z=0) then WriteLn('Error! Pleas repeat');
Until (x<>0) and (y<>0) and (z<>0);
AA(x,y,z,a);
ReadKey;
End.