Введите с клавиатуры 6 чисел и определите их среднее арифметическое

var
  a,b:integer;
begin
  readln(a,b);
  writeln(a mod b)
end.

var
  a,b:integer;
begin
  readln(a,b);
  if a>b then
    writeln(a,' ',b)
  else
    writeln(b,' ',a)
end.

var
  a,sum,i:integer;
begin
  sum:=0;
  for i:=1 to 6 do
  begin
    write('>');
    readln(a);
    inc(sum,a)
  end;
  writeln(sum/6:0:2)
end.

program test;
var
        b: boolean;
        i, temp: integer;
        mas: array [1..10] of integer;
begin
        for i := 1 to 10 do
        begin
                writeln('Vvedite element #', i);
                readln(mas[i]);
        end;
        b := true;
        while (b) do
        begin
                b := false;
                for i := 1 to 9 do
                begin
                        if (mas[i] > mas[i+1]) then
                        begin
                                temp := mas[i];
                                mas[i] := mas[i + 1];
                                mas[i + 1] := temp;
                                b := true;
                        end;
                end;
        end;
        for i := 1 to 10 do
        begin
                writeln('element #', i, ' = ', mas[i]);
        end;
end.

program test;
const n=10;
var a:array[1..n] of integer;i,j,tmp:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if a[i]>a[i-1] then
for j:=2 to n do
if a[j]<a[j-1] then
begin
tmp:=a[j];
a[j]:=a[j-1];
a[j-1]:=tmp;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
readln;
end.