Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). использовать только repeat программа паскаль 40

Var
i: integer;
sr, s, x: real;
begin
i:=0;
repeat
readln(x);
s:=s+x;
i:=i+1;
until i=10;
sr := s/10;
writeln(sr);
end.

Var i, n: integer;
S, k: real;
begin
  n := 10;
  S := 0;
  repeat
    writeln('Print number');
    readln(k);
    S := S + k;
    n := n - 1;
  until n = 0;
  writeln(S / 10);
end.