Как написать программу для движения окружности(вниз и вправо) в паскале ?

Var i:integer;  n,k:real;  begin   n:=10; k:=10;   for i:=1 to 6 do    begin     n:=1.1*n;     k:=k+n;    end;   writeln(k:5:2);  end