Не могу построить блок-схему
требуется запросить два числа, найти и вывести на экран наименьший общий делитель, отличный от 1

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.

Доклад"Этика виртуального мира ”

Развитие современных средств коммуникации привело к легкому и быстрому доступу к сети интернет, что, в свою очередь, повлекло бурный рост интернет-технологий и предоставляемых услуг. Виртуальное пространство стало неотъемлемой частью жизни современного человека. Работа, общение, развлечение – одни из стимулирующих факторов, которые побуждают человека все больше уделять времени проведению в виртуальном пространстве.

Вместе со становлением и развитием виртуального пространства, произошло становление и развитие осознания реальности отличной от той, в которой живет человек – виртуальной реальности. Эпоха аутентичности наложила свой отпечаток на виртуальный мир. Общий круг вопросов, порождаемый данной темой, можно представить следующими тезисами:

Человек и виртуальная реальность: сосуществование трех миров – внутреннего мира человека, реального объективного мира и виртуального мира. Автономия виртуальной реальности, место и роль человека в виртуальной реальности.

Три болезни современности в проекции виртуальной реальности: развитие современного социального общества, привело к развитию и становлению этики аутентичности и пограничных форм ее существования, перетекающие в индивидуализм и его крайние формы, инструментальное мышление с его крайней формой прагматизма, и фрагментация общества. Человек, сделав неотъемлемой частью своей жизни виртуальную реальность, успешно привнес в нее культуру аутентичности с уже новыми оттенками духа аутентичности.

Источники аутентичности: исторический путь аутентичности Корни аутентичности современного общества.

Молчаливое противоречие: поверхностный релятивизм как приобретение эпохи аутентичности. Моральный идеал самореализации.

Свобода и освобождение в железной клетке виртуальной реальности: императив властвования, современное виртуальное общество как «железная клетка». Клетка сознания или новые просторы свободы и пространства реализации для человека.

Фрагментация общества: источники и угрозы фрагментации современного социального общества в виртуальных реалиях.