Вычислить среднее арифметическое чисел x, y, z Линейный алгоритм

var x,y,z,sred_arifm: real;
begin
writeln('введите числа');
readln(x,y,z);
sred_arifm:=(x+y+z)/3;
writeln('среднее арифметическое=',sred_arifm);
readln;
end.

var a,b, gip: real;
begin
writeln('введите катеты');
readln(a,b);
gip:=sqrt(sqr(a)+sqr(b));//квадрат гипотенузы равен сумме квадратов катетов
writeln('Гипотенуза=',gip);
readln;
end.

var
    x,y, z, min: real;
 
begin
    write ('Введите три числа: ');
    readln (x, y,z);
 
    if x <= y then
        min := x
    else
        min := y;
 
    if z< min then
        min := z;
 
    writeln ('Минимальное: ', min);
 
readln;
end.

var
    x,y, z,x1,y1,z1: real;
 
begin
    write ('Введите три числа: ');
    readln (x, y,z);
 
   if x>18 and x<10 then  writeln ('не принадлежит: ', x);
if y>18 and y<10 then writeln ('не принадлежит: ', y);
if z>18 and z<10 then writeln ('не принадлежит: ', z);
readln;
end.

Program Max;
Var
  x: array [0..1000] of integer;//массив значений
  max,i,a: integer;
Begin
i:=0;//счетчик
  max:= x[0];
  While  x[i]<>0 Do
  begin
    a:=x[i];//взяли элемент
    if a>=max then max:=a;
i:=i+1;
end;
writeln('maximum', max);
End.

Program sred;
Var
  x: array [0..1000] of integer;//массив значений
  min,max,i,a: integer;
  sred: real;
Begin
i:=0;//счетчик
  max:= x[0];
  min:= x[0];
  While  x[i]<>0 Do
  begin
    a:=x[i];//взяли элемент
    if a>=max then max:=a;
    if a<=min then min:=a;
i=i+1;
end;
sred:= (max+min)/2;
writeln('maximum', max);
writeln('minimum', min);
writeln('srednee',sred);
End.