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

Первый вариант:

Sum:=0;

for i:=1 to n do

begin

Write ('a = ');

ReadLn (a);

Sum:=Sum+a;

end;

Sred:=Sum/n;

Writeln ('Sred = ', Sred:6:2);

ReadLn;

end.

Второй вариант:

Sum:=0;

i:=1;

repeat

Write ('a = ');

ReadLn (a);

Sum:=Sum+a;

i:=i+1;

until i>n;

Sred:=Sum/n;

Writeln ('Sred = ', Sred:6:2);

WriteLn;

Третий вариант:

uses Crt;

const n=10;

var a, i, Sum: integer;

Sred: real;

begin

ClrScr;

Sum:=0;

i:=1;

While i<=10 do

begin

Write ('a = ');

ReadLn (a);

Sum:=Sum+a;

i:=i+1;

end;

Sred:=Sum/n;

Writeln ('Sred = ', Sred:6:2);

WriteLn;