Написати програму, яка за до модуля tuttle намалює декілька різнокольорових кіл​

У первобытных народов не существовало развитой системы счисления. Одной из наиболее древних систем счисления является египетская иероглифическая нумерация, возникшая еще за 2500 – 3000 лет до н. э. Это была десятичная непозиционная система счисления, в которой для записи чисел применялся только принцип сложения (числа, выраженные рядом стоящими цифрами, складываются). Аналогичными системами счисления были греческая, геродианова, римская, сирийская и др. Другая система счисления основанная на позиционном принципе, возникла у индейцев майя, обитателей полуострова Юкатан ( Центральная Америка) в середине 1 – го тыс. н. э. Современная десятичная позиционная система счисления возникла на основе нумерации, зародившейся не позднее 5 в. в Индии. Вскоре после возникновения десятичная позиционная система счисления начинает распространяться из Индии на Запад и Восток.    

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.