50+лучший
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел
(массив не использовать). Сделайте три варианта программы, используя операторы While,Repeat, For.

Через while:

var
  s, x, i: integer;
  sr: real;
begin
  s:=0; i:=0;
  while i lt; 10 do
  begin
    readln(x);
    s := s + x;
    inc(i);
  end;
  sr := s / i;
  writeln(sr);
end.

Через repeat:

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

Через For:

var
  s, x, i: integer;
  sr: real;
begin
  s:=0;
  for i:=1 to 10 do
  begin
    readln(x);
    s := s + x;
  end;
  sr := s / i;
  writeln(sr);
end.

Var i: integer;
    a,s: real;
begin
  s:=0;
  writeln(числа:);
  for i:=1 to 10 do
  begin
    write(i,: );
    readln(a);
    s:=s+a;
  end;
  writeln(среднее арифметическое: ,s/10:6:2);
end.