Составить программу . вводить последовательно пока средне арифметическое не будет равно10

Program ex1;
var a,sum,k:integer;
sr:real

begin

do
  begin
  writeln("Введите число");
  readln(a);
  sum:=sum+a;
  k:=k+1;
  sr:=sum/k;
  end;
while (sr<>10);

writrln("Программа выполнено успешно!");
end.