Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и

1-ый вариант:
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 igt;n;
Sred:=Sum/n;
Writeln(Sred = , Sred:6:2);
WriteLn;
3-ий вариант:
uses Crt;
const n=10;
var a, i, Sum: integer;
Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While ilt;=10 do
begin
Write (a = );
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
end;
Sred:=Sum/n;
Writeln(Sred = , Sred:6:2);
WriteLn;