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

3 задачка чутка неправильна)

вот var a, b:real;c,i:integer;beginb:=0;for c:= 1 to 10 dobeginread (a);b:=b+a;i:=c+1;end;b:=b/10;writeln (b);end.

var a, b:real;I:integer;beginI:=1;b:=0;while I <> 10 dobeginread (a);b:=b+a;I:=I+1;end;b:=b/10;writeln (b);end.____________________var a, b:real;I:integer;beginI:=0;b:=0;repeatread (a);b:=b+a;I:=I+1;until I=10;b:=b/10;writeln (b);end._____________________var a, b:real;I:integer;beginb:=0;for I:=1 do 10 tobeginread (a);b:=b+a;I:=I+1;end;b:=b/10;writeln (b);end.