Заданы значения x y z составить программу которая находит среднее арифметическое и среднее этих чисел

program pr1; uses crt; var x,y,z: integer; a: real; beginclrscr; readln(x,y,z); a: =(x+y+z)/3; writeln(a: 8: 3); a: =exp(1/3*ln(x*y*z)); writeln(a: 8: 3); end.

Const nn=50; var a: array [1..nn] of integer; i,n,k: integer; begin   write('введите кол-во эл-тов массива: ');   readln(n);   for i: = 1 to n do   begin       a[i]: =random(50);       write(a[i],' ');   end;   writeln;   for i: = 1 to n div 2 do   begin       k: =a[i];       a[i]: =a[n-i+1];       a[n-i+1]: =k;   end;   for i: = 1 to n do write(a[i],' '); end.

Program project1777; uses   math,  classes ;   var    x,y,z: integer;     begin          writeln('vedite 1 chislo'); readln(x);       writeln('vedite 2 chislo'); readln(y);       writeln('vedite 3 chislo'); readln(z);       begin       if ((x> y) and (x> z)) then      writeln('samoe bolshoe chislo ',x)      else      if ((y> x) and (y> z)) then      writeln('samoe bolshoe chislo ',y)      else      if ((z> x) and (z> y)) then     writeln('samoe bolshoe chislo ',z);       end;       begin      if ((x< y) and (x< z)) then      writeln('samoe malenkoe chislo ',x)       else      if ((y< x) and (y< z)) then      writeln('samoe malenkoe chislo ',y)      else      if ((z< x) and (z< y)) then      writeln('samoe malenkoe chislo ',z);       end;     readln;     end.