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

Спасибо

Program;var a,i,sr,k,sum:integer;k:=0;sum:=0;Beginfor i:=1 to 10 dobegin;read(a);k:=k+1;sum:=sum+a;sr:=sum/k;end;write(sr);End.Program;var a,i,k,sum,sr,r:integer;Begink:=0sum:=0;r:=0;repeatbegin;read(a);k:=k+1;sum:=sum+1;r:=r+1;until r=10;sr:=sum/k;write(sr);End.Цикл While  подумай сама,уверен у тебя получится